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Until the last few decades, playing games was restricted to man’s mind 
or to the use of crude machines. Today, however, with the rapid 
growth in the development and use of the computer, electronic games 
have grown in popularity. Programming digital computers has made it 
possible for us to enjoy complicated problem-solving activities as well 
as many games that formerly, and in reality, required great skill and 
many years of practice. 

Computer game playing is commonly practiced in business, the aca- 
demic field, and in homes throughout the world. The invention of mini- 
computers and/or microcomputers has enabled many thousands of 
people to enjoy the wonders of the digital computer. Playing computer 
games helps you to learn the computer language, and it also gives you 
more confidence in the use of the computer terminal. 

Electronic teletype terminals and/or CRT screen units are used to 
communicate with the computer. A programming language is used 
along with the terminal. One such terminal language is BASIC. BASIC 
was originally created at Dartmouth College in order to help students 
use the computer. Today, BASIC is the most widely used time-sharing 
language. This particular programming language is also very easy to 
learn, and therefore it is well suited for computer games. Learning to 
play computer games in the BASIC Language is a relatively simple 
task, and programming into the computer can be accomplished without 
any difficulty. 

We believe that these computer games in the BASIC language will 
be enjoyed by more and more people in the near future. The availability 
of personal computers to businesses, schools, and homes is now here — 
and at relatively inexpensive prices that seem to get lower all the time. 

O ur boo k , Computer Games for Business, School, and Home, f i I Is a 
need Victor and I knew existed, a need for a reference book containing 
an excellent selection of popular and new, exciting games, as well as a 
guide to BASIC programming. The games and sample runs were 
authored by Victor, and the book was compiled and edited by myself. 
We blended our talents to produce a book that we hope will bring you 
hours of entertaining fun for many years to come. 

William S. Hodges 
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Games listed by program difficulty 

Program name Page 


EASTER (least difficult) 44 

BULLET 26 

POEM 98 

PSYCHO 1 09 

JACKPOT 78 

ROLLON 115 

NOTONE 90 

DATE 33 

BIORHYTHM 9 

COM PAT 29 

GUNNER 65 

TENNIS 140 

GOLF 58 

BASKET 1 

BOGGLE 21 

HORSE 70 

STOCK 129 

ESCAPE 46 

FISH 53 

SKEEDOODLE 119 

TIC-TAC-TOE 146 

STAR TREK 124 

TAPLAB 136 

DOGS 37 

BLACKJACK 14 

KISMET 82 

POKER (most difficult) 103 





Description 

Dr. James A. Naismith, an instructor at the International Young Men’s 
Christian Association T raining School (now Springfield College) in 
Springfield, Massachusetts, invented the game of basketball in 1891. 

Dr. Naismith created the game, using two empty peach baskets as goals 
and a soccer ball, in order to maintain the training school’s athletic 
attendance in the winter months. Today basketball is enjoyed world- 
wide by both men and women and boys and girls playing at many dif- 
ferent levels of skill. 

The following program is for a game of basketball between two 
players using professional (American) rules. One player is from Los 
Angeles and the other from Boston. The game is divided into 2 halves 
of 24 minutes each with 1 2-minute quarters (periods). There are 1 0 
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offensive options and 3 movement options. The 10 offensive options 
include: pass, dribble, spin, between the legs, jump shot, hook shot, 
stuff shot, lay up, corner shot, and long bomb. The 3 movement op- 
tions are: backward direction, no direction, and forward direction. The 
game is won or lost by using the offensive and movement options stra- 
tegically against the opponent. A time clock is used in the action of 
the game to force the players to shoot within 24 seconds as done in pro- 
fessional basketball. 


Variable list 

C = Boston’s variable rating 
D = Los Angeles’s variable rating 
E = Boston’s points 
F = Los Angeles’s points 
H = Minutes passed in quarter 
I = Probability of making shot 
J = Number of turnovers 

K = 1 for Boston’s ball 
2 for Los Angeles’s ball 

P9 = Period of play 
X = Option of move 
Y = Direction of move 
Z9 = Position of ball 


Sample run 


THIS IS A BASKETBALL. GAME. 


OPTIONS. 

1 PASS 

2 DRIBBLE 

3 SPIN 

A BETWEEN THE LEGS 

5 JUMP SHOT 

6 HOOK SHOT 

7 STUFF SHOT 

8 LAY UP 

9 CORNER SHOT 

10 LONG BOMB 

TO TYPE IN OPTION t USE THE THE FOLLOWING FORMAT: 
? X » Y 

WHERE X IS THE OPTION NUMBER AND 
Y STANDS FOR THE FOLLOWING: 


~:L FOR BACKWARD DIRECTION 

0 FOR NO DIRECTION 

1 FOR FORWARD DIRECTION 
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LOS ANGELES'S BALL 


CLOCK 2 SECS. 

?1 y 1 

BALL NEAR THEIR TOP OF KEY 
CLOCK 9 SECS. 

? 1 y J. 

BALL NEAR THEIR TAKE OUT LINE 
CLOCK .16 SECS. 

T9 » 1 

YOU MISSED 
BOSTON'S BALL 

CLOCK 3 SECS. 

? 1 y 1 

BALL NEAR YOUR TOP OF KEY 
CLOCK 9 SECS. 

T :L y 1 

BALL NEAR THEIR TOP OF KEY 
CLOCK 13 SECS. 

? 2 » 1 

BALL NEAR THEIR FOUL LINE 
CLOCK 15 SECS. 

?5 y 1 

TWO POINTS 

PERIOD ♦ .1 

TIME! 1 ! 1 

SCORE! BOSTON - 2 LOS ANGELES - 0 

LOS ANGELES'S BALL 
CLOCK 3 SECS. 

?! y 1 

BALL NEAR THE CENTER OF THE COURT 
CLOCK 8 SECS. 

T 1 y 1 

BALL NEAR THEIR FOUL LINE 
CLOCK 10 SECS, 

? 5 y 1 

TWO POINTS 

PERIOD! 1 
TIME! 1 ! 21 

SCORE! BOSTON - 2 LOS ANGELES -■ 2 

BOSTON'S BALL 
CLOCK 6 SECS. 

? 1 y 1 

BALL NEAR THE CENTER OF THE COURT 
CLOCK 13 SECS. 

?1 y 1 

BALL NEAR THEIR FOUL LINE 
CLOCK 19 SECS, 

?5 y 1 

TWO POINTS 

PERIOD! 1 
TIME! 1 ! 59 

SCORE! BOSTON ~ A LOS ANGELES - 2 

LOS ANGELES'S BALL 
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CLOCK 5 SECS. 

? 2 . . 1 . 

BALL NEAR YOUR TOP OF KEY 
CLOCK 12 SECS, 

?2 9 1 

BALL NEAR THE CENTER OF THE COURT 
CLOCK 19 SECS, 

?2 9 1 

BALL NEAR THEIR TOP OF KEY 
CLOCK 21 SECS. 

?2 9 1 

BALL NEAR THEIR FOUL LINE 
CLOCK 28 SECS. 

BOSTON'S BALL 

CLOCK 5 SECS. 

?! y .1. 

OUT OF BOUNDS 
LOS ANGELES'S BALL 


CLOCK A SECS. 

?5 9 1 

FOUL 9 TWO SHOTS 
IT'S BAD 
IT'S GOOD 

period: i 

tine: 3 : 13 

score: BOSTON A LOS ANGELES - 3 


BOSTON'S BALL 


CLOCK A SECS. 

? 2 » 1 

BALL NEAR YOUR TOP OF KEY 
CLOCK 10 SECS. 

? 1 0 .* 1 

HAVIN' TOO MUCH TO DRINK? TRY AGAIN 
CLOCK 10 SECS. 

? 1 ,0 

BALL NEAR THE CENTER OF THE COURT 
CLOCK 16 SECS. 

?2 > 1 

BALL NEAR THEIR TOP OF KEY 
CLOCK 23 SECS. 

? 1 0 y 1 

YOU MISSED 

LOS ANGELES'S BALL 


CLOCK 6 SECS. 

?2 9 1 

BALL NEAR YOUR FOUL LINE 
CLOCK 9 SECS. 

T i y i 

BALL NEAR THE CENTER OF THE COURT 
CLOCK 12 SECS. 

?10f 1 

HAVIN' TOO MUCH TO DRINK? TRY AGAIN 
CLOCK 12 SECS. 

BALL NEAR THEIR FOUL LINE 
CLOCK 16 SECS. 

?5 9 1 

TWO POINTS 
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period: i 

time: a : 31 

SCORE ♦ BOSTON - A 

BOSTON'S BALL 

CLOCK 6 SECS. 

? 


LOS ANGELES - 5 




Program listing 


S3 CLS 

100 PRINT : PRINT 

110 PRINT "THIS IS A BASKETBALL GAME. PRINT 
120 I=-i 

130 PRINT "OPTIONS: " : PRINT 

140 PRINT 1, "PASS" :PRINT 2, "DRIBBLE" : PRINT 3, "SPIN" 

150 PRINT 4, "BETWEEN THE LEGS": PRINT 5. "JUMP SHOT": PRINT E, "HOOK SHOT" 
1S0 PRINT 7, "STUFF SHOT":PRINT 8, "LAY UP":PRINT 3. "CORNER SHOT" 

170 PRINT 10, "LONG BOMB" 

180 PRINT: PRINT "HIT ENTER TO CONTINUE" INPUT A 
185 CLS 

130 PRINT "TO TYPE IN OPTION USE THE FOLLOWING FORMAT: ": PRINT 
200 PRINT "? X, Y" : PRINT: PRINT "WHERE X IS THE OPTION NUMBER AND" 

210 PRINT "Y STANDS FOR THE FOLLOWING :": PRINT 
220 PRINT "-1 FOR BACKWARD DIRECTION" 

230 PRINT "0 FOR NO DIRECTION" 

240 PRINT "1 FOR FORWARD DIRECTION- 
250 PRINT: PRINT 

255 PRINT "HIT -ENTER- TO START" INPUT A 
257 CLS 

2S0 C=C2*RND<:0> ') +2 : D= < 2+RND < 0 ) ) +2 

270 PRINT : PRINT :H=0 

280 K=INT<2+<:RNDC0) ) + i;j 

230 IF G=0 THEN 300 

235 H=H+< <G*2> /E0> :G=0 

300 IF K= 1 THEN 310 

305 K=l:GOTO 320 

310 K=2 

320 IF K=1 THEN 330 

325 PRINT "LOS ANGELES’S BALL" :GOTO 340 
330 PRINT "BOSTON’S BALL" 

340 PRINT 

350 IF H < 12 THEN 400 
355 P3=P9+1 
3S0 IF P9=l THEN 370 

3E3 IF P9=2 THEN 3S0 

3E5 IF P9=3 THEN 390 

3E7 GOTO 1430 

370 PRINT: PRINT "FIRST QUARTER IS OVER!":GQTO 270 
380 PRINT : PRINT "HALF TIME ! " :GDTQ 270 
330 PRINT : PRINT "THIRD QUARTER IS OVER!":GOTO 270 
400 REM MAIN SEQ. 

410 G=G+ 1 NT (. E+RND C 0 > !> +2 

420 PRINT "CLOCK ";G;" SECS. ":IF G<24 THEN 425 
423 GOTO 290 
425 INPUT X, Y 



430 IF X=INT <:X) THEN 435 
433 GOTO 610 

435 IF Y=INTCY) THEN 440 
437 GOTO 610 
440 IF X<1 THEN 610 
445 IF Y <-l THEN 610 
450 IF X> 10 THEN 610 
455 IF Y> 1 THEN 610 

460 ON X GOTO 490,400,510,510,530,550,570,590,550 
490 IF RNDC0X.025 THEN 630 
500 GOTO 930 

510 IF RNDCB) <. 025 THEN 630 
520 GOTO 500 

530 IF RND(0X. 1 THEN 1110 
540 GOTO 1270 

550 IF RNDC0) <1/15 THEN 1110 
560 GOTO 540 

570 IF RND ( 0 ) < . 2 THEN 1110 
5S0 GOTO 540 

590 IF RNDC0) <1/25 THEN 1110 
600 GOTO 540 

610 PRINT “WHAT DO YOU THINK YOU ARE, A GLOBETROTTER OR SOMETHING?" 

620 GOTO 420 

630 IF X=1 THEN 670 

635 IF X=4 THEN 670 

640 IF RND(0> <1/7 THEN 910 

650 IF RNDC0) <1/15 THEN Q90 

660 IF RNDC0X. 1 THEN S70 

670 PRINT "FOUL, ONE SHOT": 1=3 

680 IF K=1 THEN 700 

690 N=D/5 : GOTO 710 

700 N=C/5 

710 IF RNDC0) > N THEN 830 
720 PRINT "IT’S GOOD" 

730 IF K=1 THEN 750 
740 F=F+1*G0TQ 760 
750 E=E+1 

760 H=H+( CG+2)/60) :G=0: IF H> 12 THEN 765 
763 GOTO 770 
765 H=12 

770 PR I NT : M9= I NT C H ) :S9=INTC CH-M9>*60> 

730 PRINT "PERIOD: P9+1 : PRINT "TIME: ";M9;": M ;S9 

790 PRINT : PRINT "SCORE: BOSTON ";E, "LOS ANGELES "?F 

800 PRINT 

810 I=-l 

820 GOTO 290 

830 PRINT "NO GOOD" 

840 IF RNDC0) > . 5 THEN 860 

850 I =3: GOTO 960 

860 I=— 3: GOTO 290 

870 PRINT "OFFENSIVE F0UL":J=J+1 

880 GOTO 760 

890 PRINT "CARRYING PENALTY" : J=J+1 
900 GOTO 760 

910 PRINT "TRAVELING PENALTY" : J=J+1 
920 GOTO 760 
930 I=I+SGN(Y> 

940 IF X= 1 THEN 945 
943 GOTO 960 

945 1 = 1+1 : IF SGN ( Y) =—l THEN 950 
947 GOTO 960 
950 1=1-1 

960 IF I <-3 THEN 1010 
965 IF I> 3 THEN 1010 
970 PRINT "BALL NEAR " ? 

980 Z9=I+4 

990 ON Z9 GOTO 1040,1050,1060,1070,1080,1090,1100 
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1010 PRINT "OUT OF BOUNDS" :J=J+i 
1020 I=-I 
1030 GOTO 290 

1040 PRINT "YOUR TAKE OUT LINE" :GOTO 410 

1050 PRINT "YOUR FOUL LIN£":GOTO 410 

10&0 PRINT "YOUR TOP OF KEY" : GOTO 410 

1070 PRINT "THE CENTER OF THE COURT" :GOTO 410 

10S0 PRINT "THEIR TOP OF KEY" : GOTO 410 

1090 PRINT "THEIR FOUL LIN£":GOTO 410 

1100 PRINT "THEIR TAKE OUT LINE":GOTO 410 

1110 IF RND ( 0 > > . 667 THEN 1130 

1120 1=3: GOTO 1140 

1130 1=2 

1140 PRINT "FOUL, TWO SHOTS" 

1150 FOR P=1 TO 2 
1160 IF K=1 THEN 1130 
1170 N=D/5 : GOTO 1190 
1130 N=C/5 

1190 IF RND(0) > N THEN 1260 
1200 PRINT "IT’S GOOD" 

1210 IF K=1 THEN 1230 
1220 F=F+1 : GOTO 1240 
1230 E=E+1 
1240 NEXT P 
1250 GOTO 760 

1260 PRINT "IT’S BAD": GOTO 1240 
1270 P=3 

1280 IF I <1 THEN 1235 
1233 GOTO 1290 
1235 IF 12-H) 1 THEN 1370 
1290 IF X=1 THE 1295 
1293 GOTO 1300 

1295 Q=<:CI*RND<0)>+2)/5:GOTO 1390 
1300 IF X=6 THEN 1305 
1303 GOTO 1310 

1305 Q=a*RND<:0)+2:>/6:GOTO 1390 
1310 IF X=7 THEN 1315 
1313 GOTO 1320 

1315 O=a*RND<:0)+2>/3:GOTO 1390 

1320 IF X=8 THEN 1325 

1323 GOTO 1340 

1325 IF 1=1 THEN 1330 

1327 Q=INT C I+ : RND C0) +2) /4 : GOTO 1390 

1330 Q=RND C 0) : GOTO 1390 

1340 IF X=9 GOTO 1345 

1343 GOTO 1360 

1345 IF 1=3 THEN 1350 

1347 Q=0: GOTO 1390 

1350 Q=<2*RND<:0) ) /3:G0T0 1390 

1360 Q= < I+RNDC0) +2) /7 : GOTO 1390 

1370 PRINT "HAVIN’ TOO MUCH TO DRINK?", "TRY AGAIN..." 

1330 GOTO 420 

1390 IF RND<0) <Q THEN 1470 
1400 PRINT "YOU MISSED" 

1410 IF RND(0) <. 75 THEN 1460 

1420 PRINT "YOU GOT THE REBOUND BACK!" 

1430 I=P : IF K=1 THEN 1440 

1435 K=1 : GOTO 1450 

1440 K=2 

1450 GOTO 290 

1460 I=-P : GOTO 290 

1470 PRINT "TWO POINTS" :GOTO 1570 

1480 I=-P: GQTOO 290 

1430 PRINT: PRINT: PRINT: PRINT "THE GAME IS OVER ! ! !":PRINT 

1500 PRINT "FINAL SCORE: BOSTON ";E, " LOS ANGELES ";F 

1510 PRINT 

1520 IF F>E THEN 1550 
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1525 IF F <E THEN 1540 
1530 PRINT "OVERTIME! " :H=7: GOTO 2S0 
1540 PRINT "BOSTON WON!" : GOTO 1560 
1550 PRINT "LOS ANGELES WON'" 

3.560 PRINT: PRINT "NUMBER OF TURNOVERS IN THE GAME WHS ";J:END 

1570 IF K=1 THEN 15S0 

1575 F=F+ 1 : GOTO 1590 

1580 E=E+1 

1590 GOTO 730 

1600 END 
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Physical cycle 

Sensitive (emotional) cycle 

Cognitive (intellectual) cycle 


Description 


This program describes your daily biorhythmic behavioral patterns 
throughout the year. 

Biorhythm is the rhythmic course of the life process of organisms. 
There are indications that the life of an individual moves in physical 
phases of 23 days that include basic bodily functions and the sense of 
physical fitness; in sensitive (emotional) phases of 28 days that include 
mental health, creativity, and mood; and in cognitive (intellectual) 
phases of 33 days that regulate alertness, memory, and receptivity to 
knowledge. In other words, everyone biologically has periods of high 
and low peaks in their everyday experiences. 

The median (zero) line of the graph is when you have the most acci- 
dents. The high ( + ) periods are when you have the most energy, and 
the low ( - ) periods are regarded as periods when you should recu- 
perate. 

The program also is geared so that you may choose the number of 
days you want to know your biorhythmic patterns. And as an added 
feature, the day you were born is printed along with the number of 
days that have passed to the present date. 


Program notes 

You should note that line 1040 jumps to itself. This is done so that you 
can roll up the paper and tear it accordingly in order to make individual 
copies of your biorhythmic pattern. 

Variable list 

A( ) = Cumulative number of days at the end of the month 
C5 = Location to cognitive cycle 
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D9 = Number of days to graph 
D( ) = Number of days in each month 
j 1 = Current day that’s printing 
M 1 , D 1 , Y2 - Birth date (month, day, year) 
M2, D2, Y3 — Today’s date (month, day, year) 
M9 = Current month that’s printing 
N( ) = Person’s name 
P5 = Location to print physical cycle 


S5 = Location to print sensitivity cycle 
V = Number of days since birthdate 
Y9 = Current year that’s printing 


Sample run 


ENTER TODAY'S DATE? < MM ? DD t YYYY ) ?4 * 1 , 1 978 
ENTER BIRTHDATE? ( MM r DD r YYYY ) ?4 * 12 * 1954 
ENTER NAME? JOHN G ♦ DOE 

HOW MANY DAYS TO GRAPH? (ALIGN PAPER, HIT ENTER) ?15 


THE MEDIAN LINE (0) IS YOUR CRITICAL. POINT AND IS 
WHEN MOST ACCIDENTS OCCUR, THE HIGH PERIODS ( + ) ARE 
WHEN YOU HAVE THE MOST ENERGY AND THE LOW PERIODS <-) 
ARE REGARDED AS RECUPERATIVE PERIODS. 


GRAPH SYMBOLSJ 

It MEDIAN LINE (0 LINE) 
Pt PHYSICAL CYCLE (23 -DAY) 
St SENSITIVITY CYCLE (28-DAY) 
Ct COGNITIVE CYCLE < 33-DAY) 


YOUR BIRTHDAY IS APRIL 12 1954 

IT WAS A MONDAY AND OCCURRED 8755 DAYS ( 23.98 YEARS) AGO. 


HERE 

IS 

THE 

GRAPH FOR 

AND 

ENDING 

AT APRIL 1! 


DATE 


SAT 

APR 

1 

1978 

SUN 

APR 

2 

1978 

MON 

APR 

3 

1978 

TUE 

APR 

4 

1978 

WED 

APR 

5 

1978 

THU 

APR 

6 

1978 

FRI 

APR 

7 

1978 

SAT 

APR 

8 

1978. 

SUN 

APR 

9 

1978 

MON 

APR 

10 

1978 

TUE 

APR 

11 

1978 


JOHN G, DOE STARTING AT 
1978 


< - > ( 0 ) 

S P I 

SP I 

SP I 

p J 

SP I 

SP I 

s p IC 

S P C I 
CS p 

c s 

c I 


APRIL 1 1978 


( + ) 


C 


C 



P 

S P 
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** HAPPY 24 BIRTHDAY ** 


WED 

APR 

12 

1978 

C 

I 

s 

p 


THU 

APR 

13 

1978 

C 

I 


s 

p 

FRI 

APR 

14 

1978 

c 

I 



S P 

SAT 

APR 

15 

1978 

c 

I 



SP 


oaaaQQaaaa 


Program listing 


BIORYT 


90 CLS 

100 REM JVN-2/10/76-VER 1.9 
110 DIM AC12>>D(12>.NC25> 

120 FOR 1 = 1 TO 12 s READ ACI>:NEXT I 
130 FOR 1 = 1 TO 12: READ DC I) ."NEXT I 

140 DATA 0,31,59,30,120,151,181,212,243,273,304,334 
150 DATA 31,28,31,30,31,30,31,31,30,31,30,31 
1E0 P=E. 28318 

180 PRINT "ENTER TODAY’S DATE. . . CMM, DD, YYYY) ";:INPUT M, D, Y 

190 M2=M : D2=D : Y3= Y 

200 Y5=Y 

210 GOSUB 300 

220 Z=T 

230 PRINT "ENTER BI RTHDATE. . . C MM, DD, YYYY) INPUT M, D, Y 

240 M1=M:D1=D: Y2=Y 

250 GOSUB 300 

260 V=T-Z 

270 V=ABS(V) 

280 PRINT "ENTER NAME"?: INPUT W* 

290 GOTO 480 
300 Y1=Y— 1800 
310 Q1 = INT CY1/4) 

320 Q2=INTCQl/25) 

330 Q3=INTC <Yl+200)/400) 

340 K=0 

350 IF Q1*4=Y1 THEN 360 
355 GOTO 390 

360 IF Q2=+ : 100=Y 1 THEN 370 
365 GOTO 390 

370 IF Q3*400-200=Y1 THEN 380 
375 GOTO 390 
380 K= 1 

390 T =3£5*Y 1 +Q 1 -Q2+Q3— K 
400 T=T+ACM)+D-1 
410 IF M <3 THEN 430 
420 T=T+K 

430 IF I NT <!Yl/4!)=Yl/4 THEN 440 

435 GOTO 460 

440 IF M> 2 THEN 4E0 

450 T=T— 1 

460 J=T-7*INTCT/7) 

470 RETURN 
480 N C X ) =0 
490 PRINT: PRINT 

500 PRINT "HOW MANY DAYS TO GRAPH? CALIGN PAPER, HIT ENTER!)" 



510 INPUT D3 : PRINT ’ PRINT 
515 CLS 

520 PRINT "THE MEDIAN LINE C0) IS YOUR CRITICAL POINT AND IS" 

530 PRINT "WHEN MOST ACCIDENTS OCCUR. THE HIGH PERIODS ( + ) ARE" 

540 PRINT "WHEN YOU HAVE THE MOST ENERGY AND THE LOW PERIODS <-)“ 

550 PRINT "ARE REGARDED AS RECUPERATIVE PERIODS. " 

5E0 PR I NT: PR I NT- 

570 PRINT "GRAPHIC SYMBOLS :": PRINT 

580 PRINT "I: MEDIAN LINE (0 LINE)" 

530 PRINT "P: PHYSICAL CYCLE (23-DAY) " 

G00 PRINT "S: SENSITIVITY CYCLE (28-DAY) " 

S10 PRINT "C: COGNITIVE CYCLE (33-DAY) " 

S20 PRINT : PRINT : PR I NT "HIT -ENTER- TO CONTINUE. INPUT W 
E25 CLS 

630 PRINT "YOUR BIRTHDAY IS " ? : A3=M1 : GOSUB 1050: PRINT D1?Y2 
S40 PRINT "IT WAS A B3=J+1 : GOSUB 1170 

650 PRINT " AND OCCURRED , •; V ■ " DAYS ( " ' I NT ( ( V / 365 ) * 1 00 ) / 1 00 ; " YEARS) AGO." 
660 PRINT 

670 PRINT "HERE IS THE GRAPH FOR ";W$ 

680 PRINT "START AT " ; :A9=M2: GOSUB 1050:PRINT D2;Y3 

630 PRINT "AND ENDED AT "5 

700 M3=M2 : DS=D2+D3-1 : Y3=Y3 

710 IF M3> 12 THEN 715 

713 GOTO 720 

715 M9=l:Y3=Y9+l 

720 IF M3=2 THEN 730 

725 GOTO 740 

730 IF I NT (Y9/4)— Y9/4 THEN 735 
733 GOTO 740 
735 K= 1 

740 IF DB > D C M3 ) +K THEN 750 
745 GOTO 770 

750 DS=D8- ( D ( M3 ) +K ) : M3=M3+ 1 : K=0 
760 GOTO 710 

770 A3=M3 : GOSUB 1050: PRINT DB 5 Y3 

780 PRINT : PRINT: PRINT "HIT -ENTER- TO START GRAPH. INPUT W 
785 CLS 

730 PRINT TAB (7) ; "DATE" ; TAB (25) ;"(-)" ; TAB (43) ; " (0) " ; 

800 PRINT TAB (61) ?"(+)" 

810 PRINT- 

320 J1=V+J: Jl=Jl-7*INTCJl/7> : D2=D2-1 : Jl=Ji-l : V=V-1 :K=0 
S30 FOR 1=1 TO D3:V=V+1 :D2=D2+1 : J1=J1+1 : IF M2-2 THEN S40 
S35 GOTO 850 

340 IF INT CY3/4)=Y3/4 THEN 345 
843 GOTO 350 
345 K=1 

850 IF D2 > D ( M2 ) +K THEN 860 

855 GOTO 370 

360 M2=M2+1 : D2=l 

870 IF J1 <7 THEN 880 

875 J1=0 

880 IF M2> 12 THEN 830 
885 GOTO 300 

830 PRINT : PRINT TAB(33)5"*+= HAPPY NEW YEAR **" : PRINT: M2=l :Y3=Y3+1 

300 IF Jl+1=3 THEN 305 

303 GOTO 320 

305 IF D2=13 THEN 308 

307 GOTO 320 

303 PRINT: PRINT TAB (22)? 

310 PRINT "** BEWARE ! ! FRIDAY THE THIRTEENTH **" :PRINT 

320 IF M2=M1 THEN 325 

923 GOTO 940 

325 IF D2=D1 THEN 330 

327 GOTO 940 

930 PRINT : PRINT TABC33);"** HAPPY" * ABSCY3-Y2) * "BI RTHDAY **":PRINT 
340 E9=J1+1 : GOSUB 1360 

350 PRINT " " ; sC3=M2: GOSUB 1240: PRINT D2'Y3; 
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9G0 X=23: GOSUB 1430: P5=X : X=2S: GOSUB 1430 : S5=X : X=33 : GOSUB 1430: C5-X 
970 N=0: FOR L=19 TO 65: PRINT TABCL) ; 

930 IF P5=L THEN 935 
933 GOTO 990 

935 PRINT "P" ?:GOTO 1020 

990 IF S5=L THEN 995 

993 GOTO 1000 

995 PRINT "S";:GOTO 1020 

1000 IF C5=L THEN 1005 

1003 GOTO 1010 

1005 PRINT "C" 5 : GOTO 1020 

1010 IF 44=L THEN 1015 

1013 GOTO 1030 

1015 PRINT "I"; 

1020 N=N+1 : IF N=4 THEN 1025 
1023 GOTO 1030 
1025 L=100 

1030 NEXT L: PRINT :NEXT I 
1040 GOTO 1040 

1050 IF 03=1 THEN PRINT "JANUARY" ?: RETURN 
1030 IF A9=2 THEN PRINT "FEBRUARY" ;: RETURN 
1070 IF A9=3 THEN PRINT "MARCH" ;: RETURN 
1030 IF A9=4 THEN PRINT "APRI L" RETURN 
1090 IF A9=5 THEN PRINT "MAY" ?: RETURN 
1100 IF A9=B THEN PRINT " JUNE" ?: RETURN 
1110 IF A9=7 THEN PRINT "JULY" RETURN 
1120 IF A9=S THEN PRINT "AUGUST" RETURN 
1130 IF A9=9 THEN PRINT "SEPTEMBER" RETURN 
1140 IF A9=10 THEN PRINT "OCTOBER" RETURN 
1150 IF 09=11 THEN PRINT "NOVEMBER" ;: RETURN 
1160 PRINT "DECEMBER" ;: RETURN 
1170 IF B9=l THEN PRINT "WEDNESDAY" RETURN 
1130 IF B3=2 THEN PRINT "THURSDAY" ;: RETURN 
1190 IF B9=3 THEN PRINT "FRIDAY" ;: RETURN 
1200 IF B9=4 THEN PRINT "SATURDAY" 5 : RETURN 
1210 IF B9=5 THEN PRINT "SUNDAY" RETURN 
1220 IF B9=G THEN PRINT "MONDAY" " : RETURN 
1230 PRINT "TUESDAY"; : RETURN 
1240 IF C9=l THEN PRINT " JAN" RETURN 
1250 IF C9=2 THEN PRINT "FEB" RETURN 
1230 IF C9=3 THEN PRINT "MAR" ;: RETURN 
1270 IF C9=4 THEN PRINT "APR" RETURN 
1230 IF C9=5 THEN PRINT "MAY" ;: RETURN 
l '-90 IF C9=6 THEN PRINT " JUN" ;: RETURN 
1300 IF C9=7 THEN PRINT " JUL" RETURN 
1310 IF C9=8 THEN PRINT " AUG" ?: RETURN 
1320 IF C9=9 THEN PRINT "SEP" RETURN 
137,0 IF C9=10 THEN PRINT "OCT" ;: RETURN 
1340 IF C9=l 1 THEN PRINT "NOV" RETURN 
1350 PRINT "DEC" ;: RETURN 
1360 IF E9=l THEN PRINT " WED" RETURN 
1370 IF E9=2 THEN PRINT "THU" ;: RETURN 
1380 IF E9=3 THEN PRINT "FRI " ’ : RETURN 
1390 IF E9=4 THEN PRINT "SAT" ;: RETURN 
1400 IF E9=5 THEN PRINT "SUN" RETURN 
1410 IF E9=6 THEN PRINT "MON" RETURN 
1420 PRINT "TUE" ;: RETURN 
1430 X=INTCSIN< CV/X-INTCV/X) )^P>*13)+44 
1440 RETURN 
1450 END 
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Description 

Tiy testing Lady Luck” with this game! This program simulates a Las 
Vegas version of the card game of Blackjack. As many as 4 people can 
play Blackjack against a casino dealer (the computer). You each can bet 
what you want. All rules of Las Vegas Blackjack are programmed into 
this game. For example, the dealer deals 2 cards to each player. The 
first card is dealt face down; the second card is dealt face up. Finally 
the dealer deals 2 cards to himself in the same fashion. The cards dealt 
face down are called hole cards. These cards should never be seen by 
the opposition (the dealer and the other players). 

A hand consisting of 2 cards, one of which is an Ace and the other 
a fen, is a Blackjack (or a Natural ). Face cards (King, Queen, and Jack) 
also count as 10 and can be used to obtain a Blackjack with an Ace. 

The ace counts as either a 1 or an 11. Obviously, a Blackjack has a 
numerical value of 21 . 

When the dealer s up card is an Ace or a Ten, he immediately must 
inspect his hole card. If the value of his hand is 21 , then he turns his 
hole card up. If the dealer s hand is 1 7 or more, then he is required by 
the rules of the game to stand. The dealer has to draw a card (called a 
hit) if his hand totals 16 or less. 

A player may decide to double down. Double downing occurs when 
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the initial bet is doubled by adding an equal amount which is placed to 
the left or right of the initial bet. The hole card is placed on the table in 
front of the bet, face up. You then get 1 more card, face down; there- 
fore, you create a 3-card hand. The next move is to compare the total 
of your hand with the value of the dealer’s hand. A player should not 
double on any hand (total cards) whose value exceeds 1 1 . A card hand 
totaling 1 1 is a good hand to double down on. 

When a player splits a hand, he has been dealt his first 2 cards of the 
same count (value). He turns both face up. One card is dealt, face down, 
on each of the 2 cards. The player now has 2 card hands to play and 
bet on. The hand on the player’s right should be played first. You can- 
not double down on splits, and if you split Aces you are allowed only 1 
card per hand. 

The dealer will ask for an insurance bet when he shows an Ace. It 
should be Zi of your original bet. Insurance pays 1 to 1 if you win. If 
you get Blackjack then insurance pays 1-1/2 to 1. 


Blackjack probability table 


7-card 

total 

Combinations 

Total 

number of 
combinations 

% 

Odds 

(hands) 

21 

Ace + 10 

64 

4.8 

1 in 21 

20 

10 + 10 
9 + Ace 

136 

10.2 

1 in 10 

19 

10 + 9 
Ace + 8 

80 

6.0 

1 in 17 

18 

10 + 8 
9 + 9 
Ace + 7 

86 

6.5 

1 in 15 

17 

10 + 7 
9 + 8 
Ace + 6 

96 

7.2 

1 in 14 

16 

10 + 6 
9 + 7 
8 + 8 

86 

6.5 

1 in 1 5 

15 

10 + 5 
9 + 6 
8 + 7 

96 

7.2 

1 in 1 3 

14 

10 + 4 
9 + 5 
8 + 6 
7 + 7 

102 

7.7 

1 in 1 3 

13 

10 + 3 
9+4 
8 + 5 
7 + 6 

112 

8.4 

1 in 12 

12 

10 + 2 
9 + 3 
8 + 4 
7 + 5 
6+6 

118 

8.9 

1 in 11 
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Blackjack probability table (continued) 


2-card 

total 

Combinations 

Total 

number of 
combinations 

% 

Odds 

(hands) 

1 1 

9 + 2 

64 

4.8 

1 in 21 


8 + 3 





7+4 





6 + 5 




10 

8 + 2 

54 

4.1 

1 in 25 


7 + 3 





6 + 4 





5 + 5 




9 

7 + 2 

48 

3.7 

1 in 27 


6 + 3 





5+4 




8 

6 + 2 

38 

2.9 

1 in 35 


5 + 3 





4+4 




7 

5 + 2 

32 

2.4 

1 in 41 


4 + 3 




6 

Ace + 5 

38 

2.9 

1 in 35 


4 + 2 





3 + 3 




5 

Ace + 4 

32 

2.4 

1 in 41 


3 + 2 




4 

Ace + 3 

22 

1.7 

1 in 60 


2 + 2 




3 

Ace + 2 

16 

1.2 

1 in 83 

2 

Ace + Ace 

6 

.5 

1 in 221 


Variable list 

A( ) = Amount of aces in hand 

A(1 , ) = Regular hand 
A(2, ) = Split hand 
B( ) = Bet for each hand 

B(1 , ) = Regular hand 
B(2, ) = Split hand 
K( ) = 0 = Person can’t split 
1 = Person can split 

M( ) = Amount of money owned by each person 
Q = Number of player’s 
S = Hand being used 

S(S,C) = 0 = Card hasn’t been used 
1 = Card has been used 
Where S is suit number 
C is card number 
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T( ) = Total points in each person’s hand 

T(1 , ) = Regular hand 
T(2, ) = Split hand 


Sample run 


THIS IS A FOUR PLAYER BLACKJACK GAME. 
HOW MANY WISH TO PLAY?4 


PERSON 1 HAS ,$ 0 
PERSON 2 HAS $ 0 
PERSON 3 HAS * 0 
PERSON A HAS $ 0 


CARDS ARE RESHUFFLED ♦ 

PERSON 1 WHAT IS YOUR BET?10 
PERSON 2 WHAT IS YOUR BET? 14 
PERSON 3 WHAT IS YOUR BET?8 
PERSON A WHAT IS YOUR BET?17 


*** PERSON 1 


FIRST CARD IS 3 OF DIAMONDS 
SECOND CARD IS QUEEN OF CLUBS 

*** PERSON 2 

FIRST CARD IS ACE OF SPADES 
SECOND CARD IS 3 OF SPADES 

*** PERSON 3 


FIRST CARD IS ACE OF DIAMONDS 
SECOND CARD IS QUEEN OF DIAMONDS 


*** PERSON A 

FIRST CARD IS 6 OF SPADES 
SECOND CARD IS A OF DIAMONDS 

***** DEALER SHOWS 5 OF SPADES 


*** PERSON 1 

YOUR TOTAL IS 13 
DOUBLE-DOWN? (1 FOR YES)?0 
HIT? (1 FOR YES > ?1 

YOU PICKED THE 2 OF SPADES 
YOUR TOTAL IS 15 
HIT? CL FOR YES ) ?0 

YOUR TOTAL IS 15 
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*** PERSON 2 

YOUR TOTAL IS 1 4 
DOUBLE-DOWN? (1 FOR YES)?<) 
HIT? (1 FOR YES ) ?1 

YOU PICKED THE 6 C)F DIAMONDS 
YOUR TOTAL IS 20 
HIT? <1 FOR YES ) ?0 

YOUR TOTAL IS 20 

*** PERSON 3 

YOUR TOTAL IS 21 

*** YOU HAVE BLACKJACK! *** 


*:** PERSON 4 

YOUR TOTAL IS 10 
DOUBLE-DOWN? (1 FOR YES)?1 

YOUR DOUBLE-DOWN CARD IS 5 OF HEARTS 

YOUR TOTAL IS 15 

DEALER HAD A 2 OF CLUBS IN THE HOLE. 
DEALER PICKED A 8 OF HEARTS 
DEALER PICKED A 9 OF DIAMONDS 

THE DEALERS TOTAL IS 24 


PERSON 1 WON $ 10 
PERSON 2 WON $ 14 
PERSON 3 WON $ 12 
PERSON 4 WON $ 34 


ANOTHER GAME? (1 FOR YES)?0 


PERSON 

1 


3 

4 


DEALER 


WINNINGS 
$ 10 
$ 14 
$ 12 
$ 34 
$-70 


READY. 

aaaaaaaaaQi 


Program listing 


BLACK J 


100 DIM S(4, 13), KC4) , T<2, 5) , ft<2, 5), BC2, 4) , MC4) 
105 CLS 

110 PRINT : PRINT 
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120 PRINT "THIS IS A FOUR PLAYER BLACKJACK GAME." 

130 C=52: PRINT "HOW MANY WISH TO PLAY";: INPUT 0 
140 PRINT: PRINT 
145 CLS 

150 FOR 1 = 1 TO Q: PRINT "PERSON " 5 I ; " HAS $" ; M C I ) : NEXT I 

160 PRINT: IF CC51-C (Q+l )*5) THEN 170 ELSE GOSUB 12S0 

170 FOR 1=1 TO 5: FOR S=1 TO 2 

1S0 T < Si I ) =0 : A C 5, I ) =0 : NEXT S:NEXT I 

190 S=1 : FOR 1=1 TO Q 

200 PRINT "PERSON "Si?" WHAT IS YOUR BET" INPUT BC1,I) 

210 BC2, I )=0:NEXT I: FOR W=1 TO 750:NEXT W:CLS 

220 FOR 1=1 TO Q 

230 PRINT "*** PERSON ";l SPRINT 

240 PRINT "FIRST CARD IS ";:GOSUB 1120 

250 GOSUB 11 40: GOSUB 11 90: PR I NT 

260 Y1=Y: GOSUB 1230 

270 PRINT "SECOND CARD IS GOSUB 1120 

280 GOSUB 1140: GOSUB 1 1 90 : PRINT : PRINT : PRINT "HIT -ENTER- TO CONTINUE" ;: INPUT W 
285 CLS 

290 K C I ) =0 : IF Yi=Y THEN KCI>=1 ELSE 300 
300 GOSUB 1230: NEXT I 

310 GOSUB 1120: X2=X : Y2=Y : I =5 : GOSUB 1230 
320 PRINT " 11 ; 

330 GOSUB 1 120: PRINT "DEALER SHOWS ";:GQSUB 1140 

340 GOSUB 1190: GOSUB 1230: PRINT: PRINT 

350 IF Y=1 1 THEN 360 

355 IF T C 1 , 5 > =2 1 THEN 410 ELSE 470 

360 PRINT "INSURANCE? <1 FOR YES) ";: INPUT B:IF B=0 THEN 400 
370 PRINT "PERSON NUMBER? <0 TO STOP) INPUT B 

380 IF B=0 THEN 400 ELSE PRINT "PERSON " ;B;", HOW MUCH DO YOU BET"; 

390 INPUT BC2, B) : IF BC2, B) <0 THEN 380 ELSE 370 
400 IF TCI, 5) =21 THEN PRINT ELSE 450 
410 PRINT "*** DEALER HAS BLACKJACK! ***•': PRINT 
420 PRINT :FOR 1 = 1 TO Q:IF B( 2, I ) =0 THEN 440 
430 B C 1 , I ) =B C 1 , I ) - CB C 2, I ) +2 ) 

440 NEXT I : GOTO 860 

450 PRINT : PRINT "DEALER DOESN’T HOVE BLACKJACK. PRINT 
460 FOR 1 = 1 TO 0 : M C I ) =M C I 5 -B C 2, I ) : NEXT I 
470 B=0:D=0: FOR 1=1 TO Q: PRINT: PRINT "*** PERSON “ ; I 
480 PRINT : L9=l 

490 IF KCI)=0 THEN 610 ELSE PRINT "DO YOU WANT TO SPLIT? Cl FOR YES')"; 

500 INPUT LS : IF LS=0 THEN 610 ELSE BC2, I )=BC 1, I) 

510 IF TCI, I ) = 1 2 THEN 515 ELSE 550 
515 IF A C 1 , I ) =0 THEN 550 
520 TCI, I )=1 1 :TC2, I) = U 

530 FOR S=1 TO 2: PRINT : GOSUB 1120: PRINT "HAND ";S;" PICKED A " ; 

540 GOSUB 1140: GOSUB 1 190: PRINT : GOSUB 1230:NEXT S:PRINT:GQTO 770 
550 TCI, I ) =T C 1, I ) /2 : TC2, I ) =T C 1, I ) : FOR S=1 TO 2 

560 GOSUB 1120: PRINT "HAND ";S;" PICKED A GOSUB 1140: GOSUB 1190 
570 GOSUB 1230: PRINT " TOTAL IS " ;TCS, I): IF TCS, I ) > 20 THEN 600 
580 IF D9=l THEN 600 ELSE PRINT "HIT? Cl FOR YES)"; 

590 INPUT LS : IF LS=1 THEN 560 
600 PRINT: NEXT S:GOTO 770 

610 S=l: PRINT "YOUR TOTAL IS ";TC1,I):IF L9=l THEN 620 ELSE 700 

620 IF TCS, I)=21 THEN PRINT ELSE 650 

630 PRINT "*** YOU HAVE BLACKJACK! ***" s PRINT 

640 BC S, I ) =B CS, I ) + CB CS» I ) /2) : TCS, I ) =— 1 : GOTO 770 

650 PRINT "DOUBLE-DOWN? Cl FOR YES)"; 

660 INPUT LS: IF L8=l THEN PRINT ELSE 700 

670 PRINT "YOUR DOUBLE DOWN CARD IS 

680 GOSUB 1 120: GOSUB 1140:GOSUB 1130:GOSUB 1230 

690 PRINT :BC2, I)=BCS, I) +2: GOTO 750 

700 PRINT "HIT? Cl FOR YES)";:INPUT L7 

710 IF L7=l THEN PRINT ELSE 750 

720 GOSUB 1120: PRINT "YOU PICKED THE ";:GOSUB 1140 

730 GOSUB 11 90: GOSUB 1230: L9=0 

740 PRINT : IF TCS, 1X21 THEN 610 

750 PRINT: PRINT "YOUR TOTAL IS ";TC1,I) 
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760 IF TCSS, I) <22 THEN 770 ELSE B=B+1 

770 PRINT: PRINT "HIT -ENTER- TO CONTINUE" 5 : INPUT W 

775 CLS:NEXT I: PRINT 

780 X=X2:Y=Y2: PRINT "DEALER HAD A "s 

790 GOSUB 1 140: GOSUB 1190:PRINT " IN THE HOLE." 

800 S=1 : 1=5: IF TCS, I>>16 THEN 850 
810 IF D+Q=B THEN 850 

820 GOSUB 11 20: PR I NT "DEALER PICKED A 
830 GOSUB 11 40: GOSUB 11 90: GOSUB 1230 
840 PRINT: GOTO 800 

850 PRINT SPRINT "THE DEALERS TOTAL IS ";TCS, I) 

8E0 PRINT SPRINT 

870 FOR 1=1 TO Q: FOR S=1 TO 2 

880 IF TCS, I>=-1 THEN 930 

890 IF TCS, I ) =0 THEN 1010 

300 IF TCS, I)>21 THEN 990 

910 IF TCI, 5) >21 THEN 330 

320 IF TCS, I >> TCI, 5) THEN 930 ELSE 960 

930 PRINT "PERSON ";I;" WON *";BCS, I) 

940 MCI )=MC I ) +B CS, I > 

950 GOTO 1010 

960 IF TCS, I>=TC1, 5) THEN 970 ELSE 990 

970 PRINT "PERSON "sis" HAD A DRAW WITH THE DEALER." 

980 GOTO 1010 

990 PRINT "PERSON " ? I ; " LOST *" -,BCS, I) 

1000 MCI)=M<I)-BCS, I) 

1010 NEXT S : NEXT I 
1020 PRINT : PRINT : PRINT 

1030 PRINT "ANOTHER GAME? Cl FOR YES)"; 

1040 INPUT B: PRINT: IF B=1 THEN 145 
1050 CLS 

1060 PRINT "PERSON", "WINNINGS" 

1070 B=0 : FOR 1=1 TO Q 
1080 PRINT " " * I, ;MC I ) 

1090 B=B-MC I ) : NEXT I 

1100 PRINT "DEALER", ;B 

1110 PRINT SPRINT: PRINT :GQTO 1310 

1 120 X=INTC4*RND<0) )+l :Y=INTC 13+RNDC0) )+l 

1130 IF SCX, Y ) = 1 THEN 1120 ELSE SC X, Y) =1 : C=C+1 : RETURN 

1140 IF Y=1 THEN 1145 ELSE 1150 

1145 PRINT "ACE RETURN 

1150 IF Y= 1 1 THEN 1155 ELSE 1160 

1155 PRINT "JACK " ; : RETURN 

1160 IF Y=12 THEN 1165 ELSE 1170 

1165 PRINT "QUEEN " ; : RETURN 

1170 IF Y=13 THEN 1175 ELSE 1180 

1175 PRINT "KING " ; : RETURN 

1 180 PRINT Y; : RETURN 

1190 IF X= 1 THEN 1195 ELSE 1200 

1195 PRINT "OF SPADES ""RETURN 

1200 IF X=2 THEN 1205 ELSE 1210 

1205 PRINT "OF CLUBS ""RETURN 

1.210 IF X=3 THEN 1215 ELSE 1220 

1215 PRINT "OF HEARTS "; : RETURN 

1220 PRINT "OF DIAMONDS "?: RETURN 

1230 IF Y < 1 1 THEN 1240 ELSE Y=10 

1240 IF Y=1 THEN 1245 ELSE 1250 

1245 Y= 1 1 : A C S, I ) =A C S, I ) •+• 1 

1250 TCS, I)=T CS, I ) +Y 

1260 IF TCS, I)>21 THEN 1265 ELSE 1280 
1265 IF ACS, I>=0 THEN 1280 
1270 ACS, I )=ACS, I > -1 : T CS, I >=TCS, I ) - 1 0 
1280 RETURN 

1230 FOR X=1 TO 4 : FOR Y=1 TO 13 : S C X, Y ) =0 : NEXT Y : NEXT X : C=0 
1300 PRINT : PRINT "CARDS ARE RESHUFFLED. PRI NT : RETURN 
1310 END 
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Description 

This game is one of logic. You try to guess the number (0-5555) the 
computer has selected based on clues given to you by the computer. A 
clue is given to you after each of your guesses. 

The clues will be “Black” and/or “White.” If the computer says 
“Black,” then that means that one of the digits is correct but not in the 
right order. If the computer says “White,” then you have a correct digit 
in the correct order. It is up to you to figure what number is correct. 

There are two versions of this game. The beginner’s version will not 
have the same digit used twice in the number. The expert’s, on the 
other hand, can have as many as 4 of the digits the same. 

One to 10 people can play. Try to see who can do the best. You 
will be graded on the total number of guesses it takes to obtain the 
number. Grades range from excellent to poor depending on a predeter- 
mined average. 
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Variable list 


C( ) = Flag to make sure two same digits aren’t used in the number 
(beginner’s version) 

G = Person’s guess 

K( ) = Flag to determine if digit in guessed number has been processed 
Q = Number of player’s 

S( ) = Flag to determine if digit in picked number has been processed 
[The program analyzes your number randomly. It would be easy 
to guess the number if the program sequentially told you what 
digits are correct.] 

T( ) = Total guesses for each player, all games 

Z( ) = Digits in number 

Z(1 ,A) = Position A of digit in number picked 
Z(2,A) = Position A of digit in number guessed 


Sample run 


THIS IS THE GAME OF MIND BOGGLER. 


DO YOU WANT THE INSTRUCTIONS? <1=YES>?1 

I AM GOING TO PICK A NUMBER BETWEEN 0000 - 5555* 
YOU ARE TO TRY TO GET THAT NUMBER IN THE MINIMAL. 
AMOUNT OF GUESSES ♦ 


EVERY TIME YOU GUESS A NUMBER I WILL GIVE YOU CLUES AS TO 
HOW CLOSE YOU ARE TO THE NUMBER I GUESSED ♦ THE CLUES WILL 
BE 'BLACK' AND/OR 'WHITE'. IF I SAY 'BLACK' , THEN THAT MEANS THAT 
ONE OF THE DIGITS IS CORRECT BUT NOT IN THE RIGHT ORDER. IF I SAY 
'WHITE' THEN YOU HAVE A CORRECT DIGIT IN THE CORRECT ORDER. IT 
IS UP TO YOU TO LOGICALLY FIGURE WHAT NUMBERS ARE CORRECT. 

FOR EXAMPLE: THE NUMBER IS 5210 

YOU GUESS: 2413 

YOU WOULD GET A 'BLACK' BECAUSE THE NUMBER 2 IS CORRECT BUT IN THE 
WRONG ORDER AND A 'WHITE' BECAUSE YOU GUESSED THE NUMBER 1 WHICH WAS 
THE CORRECT NUMBER IN THE CORRECT ORDER. 


THERE ARE TWO VERSIONS OF THIS GAME. THE BEGINNERS VERSION 
WILL NOT HAVE THE SAME DIGIT USED TWICE IN THE NUMBER. THE 
EXPERTS ON THE OTHER HAND CAN HAVE AS MANY AS FOUR OF THE 
DIGITS THE SAME. 

ONE TO TEN PEOPLE CAN PLAY. TRY TO SEE WHO CAN DO THE BEST. 


********** GOOD LUCK ********** 

ARE YOU AN EXPERT (TYPE 1) OR A BEGINNER (TYPE 2>?2 


HOW MANY WISH TO PLAY72 
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ATTENTION PERSON 1 » I AM PICKING THE NUMBER 


WHAT IS YOUR GUESS? 1234 
WHITE BLACK WHITE 
WHAT IS YOUR GUESST0123 
BLACK BLACK 

WHAT IS YOUR GUESS?! 25 
BLACK BLACK WHITE 
WI-IAT IS YOUR GUESS?1245 

VERY GOOD t YOU GOT THE NUMBER IN 4 GUESSES. 


ATTENTION PERSON 2 > I AM PICKING THE NUMBER. 


WHAT IS YOUR GUESS?1234 
BLACK BLACK BLACK 
WHAT IS YOUR GIJESS?1245 
WHITE BLACK BLACK BLACK 
WHAT IS YOUR GUESS?5124 
BLACK BLACK BLACK BLACK 
WHAT IS YOUR GUESS?2415 

VERY GOOD t YOU GOT THE NUMBER IN 4 GUESSES. 


AT THE END 

OF ROUND 1 



PERSON 

TOTAL 

AVERAGE 

CATEGORY 

1 

4 

4 

EXCELLENT 

2 

4 

4 

EXCELLENT 


ANOTHER ROUND? (1=YES)?0 


READY. 


aaaaQaaaaa 


Program listing 


BOGGLE 


100 DIM T<10>, S<4>, CC6), ZC2, 4), KC4) 

110 CLS 

120 PRINT "THIS IS THE GAME OF MIND BQGGLER. "SPRINT 
130 PRINT "DO YOU WONT INSTRUCTIONS " 5 : INPUT A$ 

135 IF 0$=" YES" THEN PRINT: GOTO 145 
140 PRINT: IF 0$="Y" THEN 145 ELSE 360 


PRINT 
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145 CLS 

150 PRINT "I AM GDI ING TO PICK A NUMBER BETWEEN 0000 - 5555." 

160 PRINT "YOU ARE TO TRY TO GET THAT NUMBER IN THE MINIMAL" 

170 PRINT "AMOUNT OF GUESSES. PRINT 

1S0 PRINT "EVERY TIME YOU GUESS A NUMBER I WILL GIVE YOU CLUES AS TO" 

190 PRINT "HOW CLOSE YOU ARE TO THE NUMBER I GUESSED. THE CLUES WILL" 

200 PRINT "BE ’ BLACK’ AND/OR ’WHITE’." 

205 PRINT "IF I SAY ’BLACK’, THEN THAT MEANS THAT ONE OF THE DIGITS" 

210 PRINT "IS INCORRECT BUT NOT IN THE RIGHT ORDER. IF I SAY" 

220 PRINT "’WHITE’ THEN YOU HAVE A CORRECT DIGIT IN THE CORRECT ORDER. IT" 
230 PRINT "IS UP TO YOU TO LOGICALLY FIGURE WHAT NUMBERS ARE CORRECT." 

235 PRINT: PRINT "HIT -ENTER- TO CONTINUE. INPUT W 

237 CLS 

240 PRINT: PRINT "FOR EXAMPLE: THE NUMBER IS 5210" : PRINT 

250 PRINT "YOU GUESS: 2413": PRINT 

260 PRINT "YOU WOULD GET A ’BLACK’ BECAUSE THE NUMBER" 

265 PRINT "2 IS CORRECT BUT IN THE WRONG ORDER AND" 

270 PRINT "A ’WHITE’ BECAUSE YOU GUESSED THE NUMBER 1 WHICH WAS" 

280 PRINT "THE CORRECT NUMBER IN THE CORRECT ORDER." 

290 PRINT: PRINT "HIT -ENTER- TO CONTINUE. INPUT W 
295 CLS 

300 PRINT “THERE ARE TWO VERSIONS TO THIS GAME. THE BEGINNERS VERSION" 

310 PRINT "WILL NOT HAVE THE SAME DIGIT USED TWICE IN THE NUMBER. THE" 

320 PRINT "EXPERTS. ON THE OTHER HAND CAN HAVE AS MANY AS FOUR OF THE" 

330 PRINT "DIGITS THE SAME. ":PRINT 

340 PRINT "ONE OF TEN PEOPLE CAN PLAY. TRY TO SEE WHO CAN DO THE BEST. " 

350 PR I NT: PR I NT "****:*:*:**:** GOOD LUCK **********" 

360 PRINT: PRINT "ARE YOU AN EXPERT (TYPE E) OR A BEGINNER < TYPE B) " ; 

370 INPUT A9$: PRINT : PRINT 

380 PRINT: PRINT "HOW MANY WISH TO PLAY";: INPUT Q 
390 IF Q> 10 THEN 380 ELSE IF Q<1 THEN 380 
400 FOR P=1 TO Q 
410 PRINT : PRINT 

420 PRINT "ATTENTION PERSON"P", I AM PICKING A NUMBER. PRINT 
430 FOR 1=1 TO 6:CC I ) =0 : NEXT I 
440 N=0:FOR 1=1 TO 4 

450 N1=INT<5*RNDC0) )+l : IF A9$="E" THEN 470 
460 IF CCN1+1)=1 THEN 450 ELSE C(N1+1)=1 
470 N=N+CNl*c:i0t <:i-i:) ) ) SNEXT I 
480 N1=N: T5=0 

490 T 1 = 1 NT CN/ 1000) : N=N— T 1*1000 
500 H1=INTCN/100> :N=N-H1*100 
510 E1 = INT <N/10) :N=N-E1* ; 10 
515 N=INTCN) :N1=INTCN1) 

520 ZC1, l)=Tl:Za,2)=Hl:ZCl,3)=El:Zt:i,4)=N 

530 PRINT: IF T5=25 THEN PRINT ELSE 550 

540 PRINT "TOO MANY TRIES, THE NUMBER IS "N1 :GOTO 720 

550 PRINT "WHAT IS YOUR GUESS" ;: INPUT G 

560 T5=T5+l:Gl=G 

570 FOR 1 = 1 TO 4 :S < I > =0 : K C I ) =0 : NEXT I:X1=0 

580 T= I NT < G/ 1 000 > : G=G-T+ 1 000 

590 H=INTCG/100:> :G=G-H+100 

600 E=INT CG/10) :G=G-E*10 

610 ZC2, 1 )=T : Z ( 2, 2)=H : Z (2, 3)=E:ZC2, 4)=G 

620 IF G1=N1 THEN 710 

630 X=INT C4+RND<:0) > + l : IF SCX) = 1 THEN 630 ELSE.S(X)=1 

640 FOR L=1 TO 4:IF Z C2, X)=Z < 1 , L> THEN 650 ELSE 700 

650 IF K C L ) = 1 THEN 700 

660 IFX=L THEN 670 ELSE 680 

670 PRINT "WHITE ";:GOTO 690 

680 PRINT "BLACK "; 

690 REM 

700 NEXT L:Xi=Xl+l:IF Xl=4 THEN 530 ELSE 630 

710 PRINT : PRINT "VERY GOOD, YOU GOT THE NUMBER IN"T5"GUESSES. " 

720 PR I NT : PRINT : T ( P) =T ( P) +T5 s NEXT P:R=R+1 
730 PRINT : PRINT "AT THE END OF ROUND" R: PRINT 
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740 PRINT "PERSON", "TOTAL". "AVERAGE", "CATEGORY" 

750 PRINTS FOR 1 = 1 TO Q 

7E0 PRINT I, T< I ), :T9=INTC <TC I) /R>*100> /100: PRINT T9, 
770 GOSUB S30 
7S0 NEXT I 

790 PR I NT s PR I NT SPRINT 

300 PRINT "ANOTHER ROUND" 5S INPUT M$ 

305 IF M$=" YES" THEN 400 
310 PRINTS PRINT: IF M4>="Y" THEN 400 
320 PR I NT: GOTO 910 
330 REM 

340 IF T5 <5 THEN PRINT "EXPERT" : RETURN 
350 IF T5 <9 THEN PRINT "EXCELLENT" : RETURN 
330 IF T5 < 13 THEN PRINT "GOOD" : RETURN 
370 IF T5 < IB THEN PRINT "FAI R" : RETURN 
330 IF T5 <21 THEN PRINT " POOR" s RETURN 
330 IF T5 <25 THEN PRINT "BAD" s RETURN 
900 PRINT "KEEP PRACTICING" : RETURN 
910 END 
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Description 

In this game of chance up to 5 persons can be involved. Each person 
takes a turn as a revolver chamber clicks off. If a bullet goes off with a 
Bang!!, the unlucky person is eliminated. The game ends when only 1 
person is left! 

Variable list 

A( ) = If this flag is 1 , then that person has been previously shot 
D = Number of people shot 
E = Round number 
I = Person’s number being processed 
Y = Probability of not being shot 

Z = Probability of being shot (based upon how many people have 
previously pulled the trigger in the current round) 


Sample run 

THIS IS A RUSSIAN ROULETTE GAME * 

GAME WILL END WHEN ONLY ONE PERSON IS LEFT! 
GOOD LUCK!!!! (YOU'LL NEED IT!) 
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HOW MANY WISH TO PLAY73 
NUMBER YOURSELVES FROM 1 TO 3 . 


ROUND 1 GAME 1 


PERSON 1 CLICK 

PERSON 2 CLICK 

PERSON 3 CLICK 

ROUND 2 GAME 1 

PERSON 1 BANG ! ! ! 

PERSON 1 YOU ARE DEAD ! 

THE REST OF YOU WILL CONTINUE! 


ROUND 1 

PERSON 2 
PERSON 3 

ROUND 2 

PERSON 2 
PERSON 3 

ROUND 3 

PERSON 2 


GAME 2 

CLICK 

CLICK 

GAME 2 

CLICK 

CLICK 

GAME 2 

BANG ! ! ! 


PERSON 2 YOU ARE BEAD! 

PERSON 3 YOU HAVE WON AND MAY WALK AWAY 
ALIVE AND FREE ! ! ! 


READY. 


QO QQQQQaQQ 


Program listing 

BULLET 


90 CLS 

100 PRINT:PRINT 
110 DIM ft (100) 
120 PRINT "THIS 
130 PRINT 
140 PRINT "GAME 
150 PRINT : PRINT 
1S0 PRINT : PRINT 
170 PRINT : PRINT 


IS A RUSSIAN ROULETTE GAME. PRINT 

WILL END WHEN ONLY ONE PERSON IS LEFT!" 

"GOOD LUCK! ! ! ! (YOU’LL NEED IT! >“ 

"HOW MANY WISH TO PLAY";: INPUT A 

"NUMBER YOURSELVES FROM 1 TO" A PRINT : PRINT 
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175 INPUT "HIT ENTER WHEN READY. . , " ;M$ 

1 76 FOR F=1TO500: NEXT F 

177 CLS 

1S0 PRINT :G=1 : D=0 
130 E=1 
195 CLS 

200 PRINT : PRINT "ROUND"E, "GAME"G: PRINT 

210 FOR I=1T0 A 

220 IF A C I ) = 1 THEN 290 

230 PRINT "PERSON" ; I, 

240 Z=A-D+1 : IF Z>=6 THEN 250:Z=S 
250 P= INT CZ+RND <X ) ) + 1 

2E0 Y= C 1 / I > : + : RND < X ) : I F Y<l/E THEN 270:Y=l/6 
270 IF C 1 / P !> +Y < =E / Z THEN 295 
2S0 PRINT "CLICK" 

2S5 FOR F=1 TO 500:NEXT F 
290 NEXT I : E=E+1 : GOTU 195 
235 FOR F=1TO500: NEXT F 

300 PRINT "BANG !!!": PRINT: PRINT " PERSON" I " YOU ARE DEAD 1 ": PRINT 
310 At I > = 1 

320 D=D+1 : IF D>=A-1 THEN 340 

330 PRINT "THE REST OF YOU WILL CONTINUE ! " :G=G+1 : PRINT 
335 FOR F=1TQ1000: NEXT F 
337 GOTO 190 

340 FOR X=1 TO A: IF Ai:X)=0 THEN 350 
345 NEXT X 

350 PRINT "PERSON" X" YOU HAVE WON AND MAY WALK AWAY" 

380 PRINT "ALIVE AND FREE ! < !": PRINT : PRINT 

365 STOP 
370 END 
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Description 

By using the biorhythmic cycle theory (see BIORHYTHM game), this 
program takes the birthdays of two individuals and calculates when 
they are compatible during their lifetime. It also gives the average com- 
patibility percentage. For example, the computer adds the physical 
cycle compatibility (23-day) percentage, the sensitivity cycle compat- 
ibility (28-day) percentage, and finally the cognitive cycle compatibility 
(33-day) percentage in order to give a total percentage of the 3 bio- 
rhythmic compatibility cycles. Then, to obtain an average of this, the 
total is divided by 3. 

Two individuals will have an average compatibility of 100% only if 
they were born on the same day or if they were born 21 ,252 days apart 
or 59.86 years. Couples, therefore, should not feel insulted if their aver- 
age is not 1 00%. 


Variable list 

A( ) = N umber of days past in year up to month 
A1 ( ) = Name of person one 
B1 ( ) = Name of person two 
C3 = Remainder of P2/33 (cognitive) 

D3 = Remainder of P2/23 (physical) 

El, FI, G1 = Person one’s birthday (month, day, year) 
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E2, D2, G2 = Person two’s birthday (month, day, year) 

P2 = Difference of days between person one’s birthday and 
person two’s birthday 
S3 = Remainder of P2/28 (sensitivity) 


Sample run 

UI-IAT IS THE NAME OF PERSON ONE? JOHN H, DOE 

WHAT IS PERSON ONE'S BIRTHDAY? <MM»DD» YYYY)?5r 1 r 1954 

WHAT IS THE NAME OF PERSON TWO? MARY D. DOE 

WHAT IS PERSON TWO'S BIRTHDAY? ( MM , DD > YYYY ) ?12 > 21 f 1955 


COMPATABILITY ANALYSIS 


CQMPATABILITY ANALYSIS OF JOHN H. DOE AND MARY D. DOE, 

JOHN H. DOE WAS BORN ON MAY 1 r 1954 ♦ IT WAS A SATURDAY. 

MARY D. DOE WAS BORN ON DECEMBER 21 r 1955 ♦ IT WAS A WEDNESDAY. 

PHYSICAL CYCLE COMPATABILITY (23-DAY) IS 100 % 

SENSITIVITY CYCLE COMPATABILITY (28-DAY) IS 28,571 7 . 

COGNITIVE CYCLE COMPATABILITY (33-DAY) IS 69.696 7 . 

AVERAGE COMPATABILITY IS 66.089 % 


READY. 
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Program listing 


COMPAT 


100 DIM A1C30) , BK30) 

110 DIM AC12) 

120 FOR 1=1 TO 12 ! READ ACIUNEXT I 

130 DATA 0,31,59,30, 120,151,181,212,243,273,304,334 
140 Y=0 
150 Y=Y+1 

155 CLS: PRINT "WHAT IS THE NAME OF PERSON ONE" 5: INPUT W$ 

130 PR INT : PRINT "WHAT IS PERSON ONE’S BIRTHDAY 0 (MM, DD, YYYY) 

200 INPUT M, D, Y 

210 E1=M : F1=D : G1=Y 

220 GOSUB 770 

230 Z2=T:K1=J+1 

240 PRINT 

250 PRINT "WHAT IS THE NAME OF PERSON TWO" INPUT X$ 

310 PRINT : PRINT "WHAT IS PERSON TWO’S BIRTHDAY? (MM, DD, YYYY) 

320 INPUT M, D, Y 

330 E2=M:D2=D:G2=Y 

340 GOSUB 770 

350 P2=ABSCZ2-T) 

3S0 K2= J+ 1 

380 FOR 1=1 TO 6: PRINT: NEXT I 
385 CLS 
390 PRINT 
400 PRINT 
410 PRINT 
420 PRINT 
450 PRINT 
470 PRINT 
480 PRINT 
490 GOSUB 
500 PRINT 
510 PRINT 
530 PRINT 
540 PRINT 
550 GOSUB 
5S0 PRINT 
570 PRINT 
580 Z=P2 

590 P3=ABS( INT C C CZ/23)-INT CZ/23) >*23) ) 

S00 S3=ABSCINT<:CCZ/2S)-INTCZ/2S) )+2S) ) 

S10 C3=ABS< INT C ( ( Z/33) -INT (Z/33) >*33> ) 

620 P5=ABS< 1 00” C <2*P3)*C 100/23) ) ) 

630 S5=ABSC 100-C (2*S3>*( 100/28) ) ) 

640 C5=ABS C 100- ( ( 2*C3) *( 100/33) > ) 

650 PRINT "PHYSICAL CYCLE COMPATABILITY (23-DAY) IS 
660 PRINT INT CP5*1000) /1000; 

670 PRINT "SENSITIVITY CYCLE COMPATABILITY (28-DAY) IS 
680 PRINT INT(S5*i000)/1000i"tf" 

690 PRINT "COGNITIVE CYCLE COMPATABILITY (33-DAY) IS 
700 PRINT INT (C5*1000) / 1000; 

710 PRINT , , , " " 

720 PRINT "AVERAGE COMPATABILITY IS",," 

730 A5=(P5+S5+C5)/3 
740 PRINT INTCA5*1000)/1000? 

760 GOTO 7S0 
770 Y1=Y-1S00 
7S0 G!1 = INT (Yl/4) 

790 Q2=INT (Ql/25) 

800 Q3=INT C (Y 1+200) / 400) 

810 K=0 

820 IF 01*4 OY1 THEN 860 
830 IF 02*100 OY1 THEN 860 
840 IF 03*400-200 <> Y1 THEN 860 


"COMPATABILITY ANALYSIS" 


"COMPATABILITY ANALYSIS OF ";W$;" AND ";X$;"." 

W$;" WAS BORN ON M=E1 : GOSUB 950 
FI 5", "?G1 ? IT WAS A " ; : J=K1 

1080 
II II 

X*; " WAS BORN ON M=E2: GOSUB 950 
D2?", " ;G2; IT WAS A ";:J=K2 

1080 
II H 



S50 K= 1 

360 T=3E5*Y1+Q1 -Q2+Q3~K 
S70 T=T+A (MJ+D— 1 
SS0 IF M <3 THEN 300 
S90 T=T+K 

900 IF INTCY1/4) <> Yl/4 THEN 330 
910 IF M> 2 THEN 930 
920 T=T-1 

930 J=T-7*INT<T/7> 

940 RETURN 

950 IF M=1 THEN PRINT "JANUARY" ; : RETURN 
960 IF M=2 THEN PRINT "FEBRUARY" RETURN 
970 IF M=3 THEN PRINT "MARCH" 5 : RETURN 
930 IF M=4 THEN PRINT "APRIL" RETURN 
990 IF M=5 THEN PRINT "MAY" RETURN 
1000 IF M=6 THEN PRINT " JUNE" RETURN 
1010 IF M=7 THEN PRINT " JULY" RETURN 
1020 IF M=S THEN PRINT "AUGUST" RETURN 
1030 IF M=9 THEN PRINT "SEPTEMBER" RETURN 
1040 IF M=10 THEN PRINT "OCTOBER" RETURN 
1050 IF M=ll THEN PRINT "NOVEMBER" ?: RETURN 
1060 PRINT "DECEMBER" RETURN 
1070 IF J=1 THEN PRINT "WEDNESDAY" RETURN 
1030 IF J=2 THEN PRINT "THURSDAY" RETURN 
1090 IF J=3 THEN PRINT "FRIDAY" RETURN 
1100 IF J=4 THEN PRINT "SATURDAY" RETURN 
1110 IF J=5 THEN PRINT "SUNDAY" RETURN 
1120 IF J=6 THEN PRINT "MONDAY" 5 : RETURN 
1130 PRINT "TUESDAY" RETURN 
1140 END 
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Description 

Enter today’s date and another date. The computer will automatically 
tell you the day of the week that date fell on and the days apart from 
the day you are running it. 


Variable list 

D( ) = Days in each month 

J = Day number of date picked 
N ( ) = Cumulative days past till current month 

T = Number of days difference between entered date and January 1, 
1800 

V = Difference of days between entered date and today’s date 
Y1 = Current year minus year 1800 

Z = Number of days difference between today’s date and January 1 , 
1800 


Sample run 

DAY PREDICTION PROGRAM! 

ENTER A DATE AND THE COMPUTER WILL TELL YOU 
WHAT DAY IT WAS. ENTER A 0,0,0 TO STOP. 
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ENTER TODAY'S DATE? ( MM r DD * YYYY ) 72*2.9 1 1978 

PROGRAM CANNOT ACCEPT GIVEN DATE. RE-ENTER 
ENTER TODAY'S DATE? < MM t DD , YYYY ) ?2 * 1 ? 1978 

ENTER DATE? ( MM t DD t YYYY ) ?2 > 1 , 1978 


FEBRUARY 1 t 1978 IS TODAY t WHICH IS A WEDNESDAY. 


ENTER DATE? (MM»DDeYYYY)?12»5fl955 


DECEMBER 5 , 1955 OCCURRED 8094 DAYS AGO, ( 22.16 YEARS) 
AND WAS A MONDAY. 


ENTER DATE? ( MM , DD r YYYY ) ?0 , 0 , 0 


READY. 


QaaQQaaaQQ 


Program listing 
DATE BASIC-69 


100 DIM NC12), DC12) 

110 CLS: PRINT "DAY PREDICTION PROGRAM !": PRINT 

120 PRINT "ENTER A DATE AND THE COMPUTER WILL TELL YOU" 

130 PRINT "WHAT DAY IT WAS. ENTER A 0,0,0 TO STOP. ":PRINT 

140 PRINT ! PRINT: PRINT 

150 FOR 1=1 TO 12 

130 READ NCI) 

170 READ DC I) 

1S0 NEXT I 

190 DATA 0,31,31,28,59,31,90,30,120,31,151,30,131 
200 DATA 31,212,31,243,30,273,31,304,30,334,31 
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210 DATA 0,31,59,90, 120,151,181,212, 243,273,304,334 
220 PRINT "ENTER TODAY’S DATE (MM, DD, YYYY) " ; 

230 INPUT M, D, Y 
240 W=0 
250 GOSUB 88 0 
280 Z=T 
270 PRINT 

280 PRINT "ENTER DATE (MM, DD, YYYY) " ; 

290 INPUT M, D, Y 

300 IF MO 0 THEN 320 ELSE IF DO0 THEN 320 ELSE IF YO0 THEN 320 

310 STOP 

320 W= 1 

330 GOSUB 680 

340 V=T-Z 

350 PRINT: PRINT 

370 GOSUB 940: PR I NT D;","Y; 

380 GNV/365. 2425 

390 Q=INT (ABS(Q)*100+. 5) /100 

400 IF V<0 THEN 460 

410 IF V=0 THEN 520 

420 PRINT "WILL OCCUR" 5 V ; "DAYS FROM TODAY, ( " ; 

430 PRINT Q; " YEARS)" 

440 PRINT "AND WILL BE"? 

450 GOTO 490 

460 PRINT "OCCURRED" ;-V; "DAYS AGO, ("5 
470 PRINT Q; "YEARS)" 

480 PRINT "AND WAS"; 

490 PRINT " A GOSUB 1060 
500 PRINT 
510 GOTO 900 

520 PRINT "IS TODAY, WHICH IS"; 

530 GOTO 490 
540 Y1=Y-1S00 
550 Q1 = INT CY1/4) 

560 Q2=INT (01/25) 

570 Q3=INT( (Yl+200)/400) 

530 K=0 

590 IF Q1*4<>Y1 THEN 630 
600 IF 02*100 <> Y1 THEN 620 
610 IF 03*400-200 0 Y1 THEN 630 
620 K=1 

630 T =365*Y 1+01 -Q2+Q3-K 

640 T=T+N(M)+D”1 

650 IF M <3 THEN 300 

660 T=T+K 

670 GOTO 800 

680 GOSUB 820 

690 IF E=1 THEN 770 

700 IF D <0 THEN 770 

710 IF D> 31 THEN 770 

720 IF Y> 100 THEN 740 

730 Y=Y+1 300 

740 IF Y < 1S00 THEN 770 

750 IF Y> 4993 THEN 770 

760 GOTO 540 

770 PRINT : PRINT "PROGRAM CANNOT ACCEPT GIVEN DATE. RE-ENTER..." 

780 IF W=0 THEN 220 

730 GOTO 270 

800 J=T-7*INT CT/7) 

810 RETURN 
820 E=1 

330 IF M<1 THEN 330 

840 IF M> 12 THEN S90 

850 K=0 : I F Y/4<> INTCY/4) THEN 870 

860 K= 1 

870 IF D> D(M ) +K THEN 890 
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SS0 E=0 
390 RETURN 
900 PRINT 
330 GOTO 270 

940 IF M=1 THEN PRINT "JANUARY" ; : RETURN 
950 IF M=2 THEN PRINT "FEBRUARY" RETURN 
960 IF M=3 THEN PRINT "MARCH" RETURN 
370 IF M=4 THEN PRINT "APRIL" RETURN 
9S0 IF M=5 THEN PRINT "MAY" RETURN 
990 IF M=6 THEN PRINT " JUNE" ?: RETURN 
1000 IF M=7 THEN PRINT "JULY" RETURN 
1010 IF M=8 THEN PRINT "AUGUST" RETURN 
1020 IF M=9 THEN PRINT "SEPTEMBER" RETURN 
1030 IF M=1 0 THEN PRINT "OCTOBER" 5 : RETURN 
1040 IF M=i 1 THEN PRINT "NOVEMBER" RETURN 
1050 PRINT "DECEMBER" RETURN 
1060 IF J=0 THEN PRINT "WEDNESDAY. " 5 : RETURN 
1070 IF J=1 THEN PRINT "THURSDAY. " ; ; RETURN 
1080 IF J=2 THEN PRINT "FRIDAY. " ; : RETURN 
1090 IF J=3 THEN PRINT "SATURDAY. " 5 : RETURN 
1100 IF J=4 THEN PRINT "SUNDAY. RETURN 
1110 IF J=5 THEN PRINT "MONDAY. s RETURN 
1120 PRINT "TUESDAY. " ■ : RETURN 
1130 END 
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Description 


This program simulates a dog race game. The prior racing experience of 
each dog (won/loss record) helps to determine the outcome of the race. 
From start to finish the dogs move up a little bit each as the game pro- 
gresses. All odds are calculated based on the amount of dollars bet on 
each dog. It is interesting to note that if you went to the track, the 
same odds would show up given the amounts bet on each dog. Good 
luck! 


Description of bets 

Win— Dog comes in first. 

Place— Dog comes in first or second. 

Show— Dog comes in first, second, or third. 

Perfecta-Pick the dog to come in first and a dog to come in second. 
If they finish in the order you picked them, you win. 

Note 

At normal parimutuel dog tracks, the track takes out 17% of the pool 
(total bets placed by the participants) for state taxes and track ex- 
penses. In the parimutuel betting system, those backing winners divide, 
in proportion to their wagers, the total amount bet, minus the percent- 
age for the track and taxes. The only time the track would lose money 
would be if the betting participants continuously placed heavy bets on 
the favorite and the favorite kept on winning. The computer game 
DOGS also takes out 1 7% when it calculates the odds for each race. 


Variable list 

A1 = Maximum wins for each dog in current race 
A2 = Maximum wins picked for each dog 
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A1 ( ) Amount of money bet on each dog (for odds) 

B1 = Total amount bet in pool 
B2 — Maximum losses for each dog in current race 
B3 = Maximum losses picked for each dog 
B1 ( ) = Odds for each dog 
B9( ) = Amount of money for each player 
C8 = Maximum lengths for each race 
C9 = Length to travel in race 

C( ) = Maximum number of lengths each dog can travel 
Cl ( ) - Total lengths traveled by each dog in race 
C2( ) — Win, place, or show for dog picked by each player 
C9( ) = First dog in perfecta for each player 
D1 = Total amount bet in perfecta pool 
D9( ) = Second dog in perfecta for each player 
E9( ) = Perfecta bet for each player 

F9 = Accuracy of decimal in percentage 
J = Winning amount 

N( ) = Dog number picked by each player 
P9 = Amount winning a perfecta 
S1( ) = Bet by each player 
W( ) = W(l) is winning dog 
W(2) is placed dog 
W(3) is show dog 


Sample run 


WELCOME TO ROOK'-A-DAY RACE TRACK!! 


RACE 1 


18 LENGTHS 


IiOG 

1 

2 

3 

A 

5 

6 

7 

8 

9 

10 


WINS 

2 

A 

3 

5 

9 

7 

8 
9 

9 

3 


LOSSES 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


PERCENTAGE 
* 666 
♦ 8 

♦ 75 
.833 
.9 

♦ 875 
.888 
.9 

♦ 666 

♦ 75 


THIS IS A HOG RACE GAME. 
PLEASE PLACE YOUR BETS. 
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ENTER A ONE FOR WIN, 
A TWO FOR PLACE r 
OR A THREE FOR SHOW, 


HOW MANY WISH TO BET?2 
PERSON 1 ENTER YOUR D0GT7 
WIN* PLACE r OR SHOU?l 
YOUR BET?50 

HERE ARE YOUR 25 TICKETS. 

FIRST r SECOND DOG IN PERFECT A?7 » 8 
AND THE BET720 

PERSON 2 ENTER YOUR D0G?8 
WIN r PLACE t OR SH0W71 
YOUR BET? 100 

HERE ARE YOUR 50 TICKETS. 

FIRST » SECOND DOG IN PERFECTA?8,7 
AND THE BETT100 


ALL BETS ARE CLOSED. 
ODDS BASED ON BETS. 


DOG 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


ODDS 
25 ! 1 
35 l 1 
22 : 1 
30 i 1 
15 i 1 
35 i 1 

7 : 1 
3 l 1 

8 : i 
13 : i 


12345678910 AND THEY'RE OFF! ! ! 

XXXXXXXXST ARTXXXXXXXX 
1 6 7 8 10 

4 5 9 

3 
o 


XXXXXXXFINISHXXXXXXXX 
XXXXXXXXST ARTXXXXXXXX 


1 



2 3 


9 
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XXXXXXXF l'NISHXXXXXXXX 
XXXXXXXXSTARTXXXXXXXX 


6 


1 


2 3 4 5 



10 


9 


XXXXXXXF IN ISHXXXXXXXX 
XXXXXXXXSTARTXXXXXXXX 


1 


3 4 



9 


10 


XXXXXXXFINISHXXXXXXXX 

XXXXXXXXSTARTXXXXXXXX 


XXXXXXXFINISHXXXXXXXX 
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XXXXXXXXSTARTXXXXXXXX 


1 


4 

6 7 10 

3 5 8 


XXXXXXXFINISHXXXXXXXX 

XXXXXXXXSTARTXXXXXXXX 


1 4 

7 8 

6 10 
XXXXXXXFINISHXXXXXXXX 

********************* 

PAYOFFS BASED ON ONE TICKET » 

PLACE 
13*5 
54 


DOG 

9 


WIN 

18 


SHOW 

9 

36 

23 


PERFECTA 9 » 2 PAYS * 182 


ANOTHER RACE?? (1 FOR YES)?0 


PERSON 

1 

2 

COMP 


AMOUNT 

-70 

-200 

270 


READY t 


QaQQQQaaQa 
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Program listing 


100 DIM B1<I0),CC10) 

110 DIM NC 12) , SI C 12) , B9C 12) , C9C 12) » D9 C 12) , ESC 12) 

120 DIM CK10), C2C12), Al C10), Wt‘3) 

130 C8=25 
140 02=7-* B3=4 
150 F9=1000: CLS 

1S0 PRINT TABC 15) ; "WELCOME TO ROOK-A-DAY RACE TRACK 1 '" 
170 REM 

1S0 A1=INT CA2*RNDCX> )+3:B2=INTCB3*RND<X) )+l 
190 C9=13 


200 M9=M9+1 


210 PRINT "RACE" ;M9, , C9; "LENGTHS" 

220 PRINT: PRINT "DOG", "WINS", "LOSSES", "PERCENTAGE" 
230 FOR 1=1 TO 10 


240 

250 

2S0 

270 

2S0 

290 

300 

310 

320 

-rO0 

340 

350 


A9=INTCA1*RNDCX) )+l :B9=INTCB2*RNDCX) )+l 

Do^K^ I T T(:,:fi3/<:fl9+B9:, * F9: ''"- 5;,/100:IF CCIXC9/5 THEN 2S0 ELSE CCD’ 
PRINT I, A9, B9, INTC C A9/ CA9+B9) ) *F9) /F9 

NEXT I: PRINT: PRINT "HIT -ENTER- TO CONTINUE. INPUT Z 

IF U9=i THEN 400 

CLS 

PRINT "THIS IS A DOG RACE GAME. ": PRINT 
PRINT "PLEASE PLACE YOUR BETS. ":PRINT 
PRINT : PRINT "ENTER A ONE FOR WIN, 11 
PRINT "A TWO FOR PLACE, " 

PRINT "OR A THREE FOR SHOW. » 

PRINT 


360 PRINT : PRINT "HOW MANY WISH TO BET";:INPUT Q 

370 IF Q < = 13 THEN 390 

380 PRINT "NO MORE THAN 13. ":GOTO 360 

390 U9=l 


400 FOR 1=1 TO Q 

410 PRINT "PERSON " 5 1 ? " ENTER YOUR DOG";: INPUT NCI) 

420 PRINT "WIN (TYPE W), PLACE (TYPE P) , OR SHOW (TYPE 
425 IF K$="W" THEN C2CI)=1 ELSE IF K$="P" THEN C2CI)=2 


S)";: INPUT K* 
ELSE IF K$="S 


430 PRINT "YOUR BET" ;: INPUT SI Cl) 

440 PRINT "HERE ARE YOUR" ? SI C I ) /2 ; “TICKETS. " 

450 PRINT "FIRST, SECOND, DOG IN PERFECTA" ;: INPUT C9fI),D9<I) 
460 PRINT "AND THE BET";: INPUT E9<I) 

470 PRINT :NEXT I 
480 Dl=100: Bl=200 

490 FOR 1 = 1 TO Q: FOR 11 = 1 TO 10: IF NCI) Oil THEN 510 
500 A1 C 1 1 ) =A 1 C 1 1 ) +S1 C I ) +C2 C I ) 

510 NEXT II : NEXT I 

520 FDR 1=1 TO Q:B1=B1+S1 C I ) :D1=D1+E9C I) :NEXT I 
530 FOR 1=1 TO 10: IF A1CI)>0 THEN 560 
540 Bl Cl) =INT C CB1/10)*RNDCX) ) + l 
550 GOTO 570 

560 Bl C I ) = I NT C CB1-A1 Cl) )/ CA1 CI)-C. 17=+ : A1 Cl)))) 

570 IF Bl C I ) > =2 THEN 580:B1CI)=2 
580 NEXT I 


590 PRINT: PRINT "ALL BETS ARE CLOSED." 

600 FOR Zl=l TO 400:NEXT Z1:CLS 
610 PRINT "ODDS BASED ON BETS. " 

620 PRINT : PRINT "DOG"," ODDS" 

630 FOR 1=1 TO 10 

640 PRINT I, Bl Cl) 1 

650 NEXT I 

660 PRINT : PRINT "HIT -ENTER- TO START GAME. INPUT Z:CLS 
670 PRINT TABC2);" 1 23456789 10", "AND THEY’RE OFF ' 1 1 " 
690 FOR R=1 TO 10 
700 W=0 


710 Cl CR)=CCCR)*RNDCX)+1)+C1 CR) 

720 NEXT R 

730 PRINT " XXXXXXX START XXXXXXX" 
740 FOR P=1 TO C9 
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€9/5 


THEN C2CI) 



750 FOR R=1 TO 10 

760 IF INT(Cl(R))OP THEN 790 

770 PRINT TABCR*2)5R? 

790 NEXT R: PRINT: NEXT P 

800 PRINT " XXXXXX FINISH XXXXXXX" 

810 FOR P=1 TO 10: IF C1CP)<=C9 THEN 820 ELSE W=W+1 
820 NEXT P 

825 FOR Zl = l TO 500:NEXT Z1 

830 IF W<3 THEN CLS:GOTO 690 

840 PRINT " + j+: 4 : * it: + 1 ' 

850 FOR R=1 TO 3:H=-1 

860 FOR P=1 TO 10 

870 IF Cl CP) > H THEN 890 

880 NEXT P:C1CJ)=-2:WCR)=J:NEXT R:GOTO 900 
890 J=P:H=C1 CP) :GOTO 880 

900 PRINT: PRINT "PAYOFFS BASED ON ONE TICKET." 

910 PRINT 

920 PRINT "DOG", "WIN", "PLACE", "SHOW" 

930 FOR 1 = 1 TO 10:Bl<:i)=Bl<i:> *2+2: NEXT I 

940 PRINT WC 1), B1 CWC 1) ) , B1 CWC 1) )-CBl CWC 1 > ) /4) , B1 CWC 1 > )-CBlCWC 1) ) /2) 

950 PRINT W C 2 ) » " ", B1 CWC2) >-CBl CWC2) ) /4) , B1 CWC2) )-CBl CWC2) ) /2) 

960 PRINT WC3) , " "," ", B1 CWC3) )-CBl CWC3) ) /2) 

970 PRINT : PRINT 

930 PRINT : PRINT "PERFECTA " ;WC1 )■","; WC2) 5 " PAYS 
990 D6=0 

1000 FOR 1=1 TO Q 
1010 IF C9C I) OWCl) THEN 1040 
1020 IF D9CDOWC2) THEN 1040 
1030 D6=D6+ 1 

1040 NEXT I : IF D6O0 THEN 1050 ELSE D6=l 
1050 P9=INTC CD1+. S3)/D8> 

1060 PRINT P9 

1070 PRINT: PRINT 

1080 FOR 1=1 TO 0: FOR 11=1 TO 3 

1090 IF N(I)OWCIl) THEN 1100 ELSE IF C2CI)>=I1 THEN 1200 
1100 NEXT II 

1110 B9C I )=B9C I )-Sl Cl) :NEXT I 
1120 PRINT 

1130 FOR 1 = 1 TO Q : IF C9CDOWC1) THEN 1170 
1140 IF D9CDOWC2) THEN 1170 

1150 PRINT "MR. "I"HAS WON THE PERFECTA. HE WINS *" 5 
1160 PRINT P9-E9CI) : B9 C I ) =B9 C I ) +P9-E9C I ) 

1170 B9 Cl) =B9 Cl) -E3 Cl): GOTO 1180 
1180 NEXT I 
1190 GOTO 1270 

1200 PRINT "CONGRATULATIONS MR. "I" YOU’VE WON $" ; 

1210 IF C2 C I ) = 1 THEN 1220 ELSE IF C2 C I ) =2 THEN 1230 ELSE K9=2:G0T0 1240 
1220 J=CS1 CI)/2)*B1 CWC ID ) : GOTO 1250 
1230 K9=4 

1240 J=CS1 Cl) /2)+CBl CWC 1 1) )-CBl CWC ID )/K9) ) 

1250 PRINT J-S1CI) 

1260 SI C I )=-C J-Sl CD) :GOTO 1110 
1270 FOR 1=1 TO 10 : A1 C I ) =0 : Cl C I ) =0 : NEXT I 
1280 W C 1 ) =0 : W C 2) =0 : W C 3 ) =0 : B i =0 : D 1 =0 
1300 PRINT "ANOTHER RACE" ;: INPUT JS$ 

1310 IF JS$=" YES" THEM 170 ELSE IF J8*="Y" THEN 170 
1315 CLS 

1320 PRINT:PRINT:PRINT "PERSON" , "AMOUNT" 

1330 FOR 1=1 TO Q 
1340 PRINT I,B9CI) 

1350 G9=G9~B9 C I ) 

1360 NEXT I 
1370 PRINT "COMP" , G9 
1375 PRINT 
1380 END 
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Description 

This program, when given any year, will find the date on which Easter 
will fall. Pass this one on to the Easter Bunny so he’ll never be late! 


Variable list 

The variables used in this program are just the elements of a function 
used to determine the day Easter falls on. 

J = Year that was entered 
F = Day on which Easter falls 


Sample run 

THIS PROGRAM WHEN GIVEN A YEAR t WILL FIND 
THE DATE ON WHICH EASTER WILL. FALL. 

INPUT THE YEART70 

EASTER FALLS ON MARCH 29 r 1970 

ANOTHER DATE? <1=YES)?1 
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INPUT THE YEAR?! 975 


EASTER FALLS ON MARCH 30 » 1975 


ANOTHER DATE? <1=YES)?1 
INPUT THE YEAR? 1980 


EASTER FALLS ON APRIL 6 r 1980 


ANOTHER DATE? (1=YES)?0 


QQQaaaaaaQ 


Program listing 


EASTER BASIC-69 


100 PRINT 

110 PRINT "THIS PROGRAM, WHEN GIVEN ft YEAR, WILL FIND" 
120 PRINT "THE DATE ON WHICH EASTER WILL FALL- " 

130 PRINT: PRINT "INPUT THE YEAR"; 

140 INPUT J 

150 IF J) 99 THEN 170 

1E0 J= J+l 900 

170 PRINT : PRINT: PRINT 

180 A=J -I NT C J/13>*19 

190 B=J-INTCJ/4>+4 

200 C=J-INTC J/7T+7 

210 T= 19+A+24 

220 D=T- 1 NT < T/30 > +30 

230 T=2+B+4+C+S : + : D+5 

240 E=T-INTCT/7)+7 

250 F=D+E-9 

260 IF F <0 THEN 290 

270 IF F> 0 THEN 320 

280 GOTO 180 

290 F=F+3i 

300 PRINT "EflBTER FALLS ON MARCH " F" , "J 

310 GOTO 410 

320 IF F=26 THEN 370 

330 IF F <> 25 THEN 350 

340 IF D=2S THEN 390 

350 PRINT "EASTER FALLS ON APRIL"F", "J 
360 GOTO 410 

370 PRINT "EASTER FALLS ON APRIL 19, "J 
380 GOTO 410 

390 PRINT "EftSTER FALLS ON APRIL 18, "J 

400 GOTO 410 

410 PRINT:PRINT:PRINT 

420 PRINT "ANOTHER DATE? <1=YES>"; 

430 INPUT ft 

440 IF ft=I THEN 130 

450 END 
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Description 

The computer game positions you, the player, against 5 enemy at- 
tackers. The object of the game is to destroy your attackers before you 
are destroyed. 

The attackers can be destroyed if they hit a mine or a tank. The 
tank is a sixth attacker. It works both for you and the enemy attacker. 
The tank destroys everything it touches. It can eliminate mines, the at- 
tackers, and you \ The tank should be used to your advantage and 
maneuvered into your attackers. Be careful: If it touches you, you lose 
the battle. 

You, as the player, are given 10 directions to move in the mined 
area. Moves 1 through 8 lead you in the directions displayed in the 
sample run. A move of “0” leaves you where you are in the area, and 
a move of 9 puts you randomly anywhere in the mined field, even on a 
mine. A move of 9 should only be used when you feel an absolute hit 
on an attacker is imminent. Remember, you can only use move 9 twice 
and you can be destroyed by hitting any mine (X) in the field, as well 
as in the perimeter. 


Note 

If 2 attackers move into each other, they are put somewhere else ran- 
domly in the mine field. Also, once a mine is destroyed it cannot ap- 
pear again. 
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Variable list 


A8 = Vertical board size 
A9 = Horizontal board size 

A( ) = Position of board layout 

A( ) = 5 represents the mines 

A( ) = 10 represents player 

A( ) = 15 represents the attackers 

A( ) = 20 represents nothing in that spot (spaces) 

A( ) = 25 represents the tank 

B( ) = Represents coordinates of the attacks 
B( ,1 ) = coordinates of tank 
B( ,2-5) = coordinates of attacks 
H = Random vertical position 
I = Random horizontal position 
J = Current vertical position of player 
K = Current horizontal position of player 
M = Horizontal position of an object 
N2 = Number of times option nine may be used by player 
N3 = Number of attacks destroyed 

V = Vertical position of an object 

W = Horizontal position of an object 
X = New vertical position of attacker 

Y = Move option of player 


Sample run 


YOU ARE THE ('*')♦ THE ATTACKERS ARE THE ('$'), 
THE MINES ARE ('X'). THE TANK IS ('S'), 

MOOES AREJ 4,3,2 
5,*,1 
6,7,8 


A MOVE OF '?' WILL PUT YOU ANYWHERE. 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

$ 

X * 


$x 


X* 


X 

&x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


( 2 CHANCES ) . 



YOUR M0UET8 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X $ X 

X $ $ X 

* X 

X X 


X X 

X X 

$ 

X X 

$ X $ 

* 

X X 

X * 

f X 
X 


X 

X 

& X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


YOUR M0VE78 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


YOUR M0UET9 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X * 

X $ X 

: $ * x 

X 

$ XX 


X 

X 

X 

X 

X X 


YOUR M0UET4 
***** ZAP ! ! 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


YOU KILLED 


ONE. 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


$ $ 


X s 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
YOUR M0UET7 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


* 

$ $ X 


* X 


*X X 


X8 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


YOUR M0UET4 


TWO ATTACKERS HAUE COLLIDED. 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


$ X 

X 

$ 

X X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


YOUR M0UE?9 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


$x 


$ X 

X 

$X X 
X 

X * 


&x 

X 


X X 
$ 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


YOUR MOVE? 1 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 
* 

X 

X * 


X 

X 

X X 
$ 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


YOUR MOYETO 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


* X 


* X 


$ X X 

$ 

X 

X * 


X X 
$ 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


YOUR M0YEY3 
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xxxxxxxxxxxxx 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X X 

X XX 

x X X 

X X 

X X x 

X $ X X 

X 

XX X 

X * x 

X 

X* XXX 

* $ X 

x X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

YOUR M0VET8 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


YOUR M0VE70 

***** ZAP 1 1 YOU KILLED ONE* 

***** ZAP ! i YOU KILLED ONE, 

*** YOU'VE BEEN DESTROYED BY A LUCKY COMPUTER *** 


READY. 




Program listing 


100 DIM fit! 15. 30) 7 BC2, 6) 

110 08=15:09=30 
120 CLS 

130 PRINT "YOU ORE THE <’*’). THE OTTOCKERS ORE THE 
140 PRINT "THE MINES ORE THE <’ X 7 ). THE TfiNK IS ( 7 &•’)." 

150 PRINT : PRINT "MOVES ORE: ", "4, 3* 2" 

1S0 PRINT , "5* 1" ! PRINT , "G, 7, 8" : PRINT 

170 PRINT "fi MOVE OF 7 9 7 WILL PUT YOU ONYWHERE. (2 CHfiNCES.) . 
130 FOR B=1 TO OS : FOR C=1 TO 09:0(6, 0=20: X=INT <:O9*RNDC0) ) 
190 IF X < > 5 THEN 200 ELSE 0CB,C>=5 
200 NEXT C: NEXT B:N3=0 

"'10 N2=2: REM THIS IS THE NUMBER OF TIMES MOVE 9 CON BE USED 



220 FOR D=1 TO A9:AC 1, D>=5:ACAS, D)=5: NEXT D 
230 FOR D=1 TO AS : AC D, 1 ) =5: A CD, A9‘> =5 : NEXT D 
240 GOTO 270 

250 H=INT CA8*RNDC0) > + l : I=INTCA9*RND <0) > + i 

2S0 IF ACH, 1)020 THEN 250 ELSE RETURN 

270 FOR D=1 TO 7:G0SUB 250 

275 ACH, I )=15: IF D<>7 THEN 290 

2S0 ACH, I>=10: J=H:K=I:GOTO 310 

290 IF DO 1 THEN 300 ELSE ACH, I) =25 

300 BC 1 » D) =H ! BC2, D) = 1 

310 NEXT D 


320 PRINT: FOR D2=l TO AS: FOR B2=l TO A9 

o20 IF ACD2, B2) =10 THEN 370 ELSE IF AC D2, B2) =15 THEN 3S0 

•240 IF ACD2, B2.)=5 THEN 360 ELSE IF ACD2, B2)=25 THEN 3S0 

350 PRINT " ";:GOTO 400 

360 PRINT "X " ; : GOTO 400 

370 PRINT "*" ;:GOTG 400 

3S0 PRINT ;:GOTQ 400 

390 PRINT 

400 NEXT B2: PRINT sNEXT D2 

410 PRINT "YOUR MOVE";: INPUT Y:CLS:IF Y=0 THEN 520 
420 V-J:W-K:IF Y <9 THEN 440 ELSE IF N2O0 THEN 430 
430 PRINT "ILLEGAL MOVE. ":GOTO 410 
440 IF YOl THEN 450 ELSE J=0:GOTO 460 
450 J=SGNCY-5) 

470 K-0^GOTO H 5i*0^ S0 ELSE IF THEN 470 ELSE K=1 : GOTO 510 


480 K=SGNCY-7) :GOTO 510 

490 GOSUB 250 

495 AC J, K) =20: ACH, I) =10 

500 J=H:K=I : N2=N2-1 : GOTO 520 

510 K=K+W : J= J+V 

520 PRINT: IF AC J, K)=5 THEN 750 ELSE ACV, W>=20 

530 AC J, K)=10: GOTO 700 

540 IF X < > 39 THEN 550 ELSE RETURN 

550 V=X:M=Y:X=SGNCJ— X) s Y=SGNCK-Y> : X=X+V: Y=Y+M 

560 IF AC X, Y) = 10 THEN 630 ELSE IF ACX,Y>=20 THEN 680 

570 IF AC V, M)=25 THEN 640 

580 IF ACX,YX>1S THEN 610 ELSE GOSUB 250 

585 X=I : Y=M 

530 PRINT "TWO ATTACKERS HAVE COLLIDED. " 

600 AC V, M)=20: AC X, Y) = 15:RETURN 

610 ACV, M)=20: IF ACX,Y)=25 THEN 620 ELSE ACX,Y>=20 
620 GOSUB 630 
625 X=99: RETURN 

630 PRINT "***** ZAP ! ! YOU KILLED ONE. " : N3=N3+1 : RETURN 

640 IF AC X, Y) < > 15 THEN 680 ELSE M3=2 

650 IF BC 1, M3) OX THEN 660 ELSE IF BC2,M3)=Y THEN 670 

660 M9=M9+1 : GOTO 650 

670 BC 1, M9) =99: GOSUB 630 

680 AC X, Y)=A CV, M) : ACV, M) =20: RETURN 

690 PRINT "+** YOU’VE BEEN DESTROYED BY A LUCKY COMPUTER ^*":GDTO 
700 FOR D=1 TO 6: X=B C 1 , D) : Y=BC2, D) : GOSUB 540 
710 BC 1, D)=X :BC2, D)=Y:NEXT D 
720 IF N3<>5 THEN 320 

730 PRINT : PRINT "YOU’VE DESTROYED ALL YOUR OPPONENTS - YOU WIN '" 
740 GOTO 770 ' 

750 PRINT :PRINT "YOU TOUCHED A MINE !!!!!!!" 

760 PRINT "+:*++* ZAP ***** YOU’RE DEAD 1 
770 END 


770 
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Description 

This game is based on the card game of Fish. You play against the com- 
puter 1 on 1. The object in play is to form books. A book is any 4-of-a- 
kind set of cards, such as 4 Kings, Queens, Jacks, etc. On getting the 
fourth card of a book, the player shows all 4, announces he has a book, 
lays the book down, and plays again. Cards are obtained by asking the 
computer for certain cards by name; in turn the computer asks you for 
cards. If you do not have the cards asked for by the computer or if the 
computer does not have the cards you ask for, then you must go FISH. 
If the card you pick up from the deck is the card you asked for, then 
you get to continue with another turn. The game ends when the owner- 
ship of all 13 books (52 cards) has been decided. The one with the most 
books wins. 

Be careful— the computer is too smart for cheaters! 


Variable list 

A( ) ~ Flags the cards that the player has asked for so the computer 
can ask for those cards when it gets them 

B = Number of books that player has 
B1 = Number of books that computer has 
C = Number of cards in player’s hand 
Cl = Number of cards in computer’s hand 
C2 = Number of times player has cheated 
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C( ) = Cards in player’s hand 
Cl ( ) = Cards in computer’s hand 

D = Number of cards picked from deck 
D( ) = Contains shuffled deck 
N( ) = Number of cards player has of each kind 
N1 ( ) = Number of cards computer has of each kind 
R( ) = Number of times the computer has asked for a particular card 
V = Card number picked 


Sample run 


THIS IS A CARD GAME OF FISH. PLAY AS YOU WOULD 
NORMALLY t AS NO CHEATING IS ALLOWED!! NUMBERS 
ARE TO BE ENTERED WHEN SPECIFIED FOR INPUTS. 


ENTER A 1 FOR AN ACE » A 11 FOR A JACK 
A 12 FOR A QUEEN f AND A 13 FOR A KING. 

GOOD LUCK ! ! 


DO YOU WANT TO GO FIRST (1=YES>?0 


THIS IS YOUR HAND J 6 7 JACK 5 8 

DO YOU HAVE ANY KINGS? <0=FISH> 1=YES)?0 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?6 
I HAVE 1 OF THEM. 

YOUR TURN. 

THIS IS YOUR HAND J 6 7 JACK 586 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R77 

GO FISH. 

YOU FISHED A 3 . 


THIS IS YOUR HAND J 6 7 JACK 5863 

DO YOU HAVE ANY 8 S? (OAFISH, 1=YES)?1 
HOW MANY?1 

THIS IS YOUR HAND t 6 7 JACK 563 

DO YOU HAVE ANY 9 S? (0=FISH» 1=YES)?0 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?9 

PLEASE DON'T CHEAT r IT'S NOT POLITE! 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?6 
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GO FISH. 

YOU FISHED A ACE. 


THIS IS YOUR HAND l 6 7 JACK 563 ACE 

DO YOU HADE ANY 10 S? (0=F1SH, 1=YES)?0 


YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?8 
STOP CHEATING. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?9 

CHEATING AGAIN?? THREE TIMES IS BAD LUCK* WATCH IT! 
WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?6 

GO FISH. 

YOU FISHED WHAT YOU ASKED FOR! 

YOUR TURN. 

THIS IS YOUR HAND : 6 7 JACK 563 ACE 6 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?5 


GO FISH. 

YOU FISHED A 10 . 


THIS IS YOUR HAND ! 6 7 JACK 563 ACE 6 10 

DO YOU HAVE ANY 2 S? (0=FISH, 1=YES)?0 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?3 
GO FISH. 

YOU FISHED A ACE. 


THIS IS YOUR HAND J 6 7 JACK 5 6 3 ACE 6 10 ACE 

DO YOU HAVE ANY A S? (0=FISHr 1=YES)?0 

YOUR TURN. 

WHAT CARD (BY NUMBER) ARE YOU LOOKING F0R?5 
GO FISH. 

YOU FISHED A 7 . 


THIS IS YOUR HAND *. 6 7 JACK 5 6 3 ACE 6 10 ACE 7 
DO YOU HAVE ANY JACKS? (OAFISH. 1=YES)?0 
I CAUGHT YOU A FOURTH TIME. ONCE MORE AND YOU'RE OUT! 

DO YOU HAVE ANY JACKS? (OAFISH, 1=YES)?1 
HOW MANY?1 

THIS IS YOUR HAND J 6 7 5 6 3 ACE 6 10 ACE 7 
DO YOU HAVE ANY 2 S? (0=FISH» 1=YES)?1 
ENOUGH t ALREADY! FIVE TIMES IS TOO MUCH!! 




55 



Program listing 


FISH 


100 CL.S 

110 PRINT "THIS IS A CARD GAME OF FISH. PLAY AS YOU WOULD" 

120 PRINT "NORMALLY, AS NO CHEATING IS ALLOWED! ! NUMBERS" 

130 PRINT "ARE TO BE ENTERED WHEN SPECIFIED FOR INPUTS. " : PRINT 
140 DIM C C 35 ) , C 1 C 35 ) > N C 1 2 ) » N 1 C 1 2 ) , D C 5 1 ) » R C 1 2 !> , A C 1 2 ) 

150 PRINT"ENTER A ONE FOR AN ACE, A 11 FOR A JACK" SPRINT "A 12 FOR A"; 
1S0 PRINT " QUEEN, AND A 13 FOR A KING. " : PRINTS PRI NT "GOOD LUCK 1 1 " 

170 PRINTsPRINT 

1S0 FOR V=0 TO 12 s FOR 1=0 TO 3 

190 X=INTCRNDC0>*52> sIF DCX)O0 THEN 190 ELSE DCX)=V 

200 NEXT I: NEXT Vs PRINT "DO YOU WANT TO GO FIRST <1=YES>" ; 

210 INPUT As PRINTsPRINT 

220 FOR 1 = 1 TO 5: GOSUB- 600: GOSUB 620 s NEXT I 
230 IF A=1 THEN 450 

240 IF C1O0 THEN 270 ELSE PRINT "I RAN OUT OF CARDS, " ; 

250 IF D=52 THEN 260 ELSE PRINT "AND PICKED UP ONE":GOSUB 620: GOTO 270 
260 PRINT "BUT " ? s GOSUB 620SGOTO450 

270 FOR N=3 TO 1STEP-1 : FDRV=0TO12 s IF NlCV>ON THEN 290 
280 IF A< V) < > 0 THEN 340 

290 NEXT VsNEXT N:L=999sF0R 1=0 TO 12:IF N1CI)=0 THEN 310 
300 IF R C I ) > =L THEN 310 ELSE L=RCI) 

310 NEXT IsFOR N=3 TO 1 STEP-1 :FOR V=0 TO 12 

320 IFNI C V> ON THEN 330 ELSE IF RCV)OL THEN 330 ELSE GOTO 340 
330 NEXT VsNEXT N 

340 Vl=Vs GOSUB 970s V=Vls RCV)=R(V) + 1 

350 PRINT "DO YOU HAVE ANY";:GOSUB 840 : PRINT "’S C0=FISH 1=YES)"? 

360 INPUT As IF A=0 THEN 420 
370 IF NC V)=0 THEN 390 

380 PRINT "HOW MANY" ! : I NPUT N:IFN=NCV> THEN 400 
390 GOSUB 890: GOTO 350 

400 FOR 1 = 1 TO Ns Cl CCl )=Vs N1 CV) =N1 (V) +1 :C1=C1+1 : NEXT I 
410 GOSUB 760: GOSUB 680: GOTO 240 
420 IF N( V) < > 0 THEN 390 

430 VI =VS GOSUB 620: IF D=52 THEN 450 ELSE IF DCD-DOV1 THEN 450 
440 PRINT "I FISHED WHAT I ASKED FOR!" sGOTO 240 
450 PRINTsPRINT "YOUR TURN." 

460 IF CO0 THEN 500 ELSE PRINT "YOU RAN OUT OF CARDS, "; 

470 IF D=52 THEN 490 ELSE PRINT "AND PICKED A";:GOSUB600 

480 V=DCD-1 :> s GOSUB 340SGOTO 500 

490 PRINT "BUT ";:GOSUB 600: GOTO 240 

500 GOSUB 970 

510 PRINT "WHAT CARD < BY NUMBER ) ARE LOOKING FOR";: INPUT V 
520 PRINT 

530 IF V(1 THEN 510 

540 IF VOl THEN 550 ELSE V=12: GOTO 1020 
550 IF VO 10 THEN 560 ELSE V=S: GOTO 1020 

560 IF VO 11 THEN 570 ELSE V=9: GOTO 1020 

570 IF VO 12 THEN 580 ELSE V=10S GOTO 1020 

580 IF VO 13 THEN 590 ELSE V=ll: GOTO 1020 

590 V=V-2 : GOTO 1020 

600 IF D=52 THEN 640 ELSE C<C)=DCD) :D=D+1 :F=0 

610 NCCCC) >=NCCCC) )+l :C=C+I sGOSUB 650: RETURN 

620 IF D=52 THEN G40 ELSE Cl CCl >=DCD> :D=D+1 

630 N1 CCl CCl ) )=NI CCl CCl ) )+l : C1=C1+1 : GOSUB 680: RETURN 

640 PRINT "THERE ARE NO MORE CARDS LEFT TO PICK":RETURN 

650 FOR V=0 TO 12: IF NCV) 04 THEN 670 ELSE GOSUB 760 

660 PRINT "YOU HAVE A BOOK OF";:GOSUB 340:PRINT "’S. " :B=B+1 

670 NEXT Vs GOTO 710 

680 FORV=0TO12 s IFNI C V) 0 4 THEN 700 ELSE GOSUB 800 

690 PRINT "I HAVE A BOOK OF";:GOSUB 840 SPRINT " ’ S. " : B1=B1 + 1 

700 NEXT V 
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710 IF D=52 THEN 720 ELSE RETURN 

720 IF C+C1=0 THEN 730 ELSE RETURN 

730 PRINT: PRINT "GOME’S OVER! !" :IF B<B1 THEN 750 

740 PRINT "YOU WON. 11 ;B"TO"Bl :GOTO 1100 

750 PRINT "I WON"B1"TO"B :STOP 

7E0 IF C<1 THEN 790 

765 FOR 1=0 TO C-l : IFCC I) <> V THEN 780 

770 FOR J=I TO C-2:CCJ)=CCJ+i) :NEXT J:C=C-1: GOTO 760 
780 NEXT I 

790 NC V>=0: A C VI =0 : F=0: RETURN 
800 IF Cl <1 THEN 830 

805 FOR 1=0 TO Cl — 1 : IF CICDOV THEN 820 

310 FOR J=I TO C1-2:C1 CJ>=C1<J+1> : NEXTJ : C1=C1-1 : GOTOS00 

820 NEXT I 

830 N1 CV)=0: RETURN 

840 IFV) 8 THEN 850 ELSE PRINT V+2;:RETURN 
850 IF V> 9 THEN 860 ELSE PRINT " JACK" RETURN 
860 IF V> 10 THEN 370 ELSE PRINT " QUEEN" ;: RETURN 
870 IF V>11 THEN 880 ELSE PRINT " KING" 5 : RETURN 
880 PRINT " ACE";: RETURN 

890 C2=C2+1 : IF C2=l THEN 910 ELSE IF C2=2 THEN 920 ELSE IFC2=3 THEN 930 

900 IF C2-4 THEN 940 ELSE IF C2=5 THEN 950 

910 PRINT "PLEASE DON’T CHEAT IT’S NOT POLITE !": RETURN 

920 PRINT "STOP CHEATING. " : RETURN 

930 PRINT "CHEATING AGAIN?? THREE TIMES IS BAD LUCK, WATCH IT!" : RETURN 
940 PRINT "I CAUGHT YOU A FORTH TIME. ONCE MORE AND YOU’RE OUT !": RETURN 
950 PRINT "ENOUGH ALREADY! FIVE TIMES IS TOO MUCH! !" 

960 GOTO 960 

970 IF F=0 THEN 980 ELSE PRINT: RETURN 

980 PRINT : PRINT "THIS IS YOUR HAND ";:F=1 

990 IF COO THEN 1000 ELSE PRINT "EMPTY" ;: PRINT: RETURN 

1000 PRINT ": " ;:FOR 1=0 TO C-l :V=CC I) :GOSUB 840:NEXT I 

1010 PRINT : RETURN 

1020 IFNCV) <> 0 THEN 1030 ELSE GOSUB 890: GOTO 510 

1030 ACV)=1 : IF N 1 C V > =0 THEN 1060 ELSE PRINT "I HAVE"N1 C V) "OF THEM." 

1040 FOR 1 = 1 TO N1CV) :CCC)=V:C=C+l:NCV)=NCV)+l:NEXT I 
1050 F=0: GOSUB 300: GOSUB E50:GOTO 450 

1060 PRINT "GO FISH. ” :Vl=V‘.GOSUB 600: IF D=52 THEN 240 
1070 IF D(D-1)=V1 THEN 1090 ELSE PRINT "YOU FISHED A"; 

1080 V=D CD-I ): GOSUB 840: PRINT ".":PRINT: GOTO 240 
1090 PRINT "YOU FISHED WHAT YOU ASKED FOR'":GOTO 450 
1100 END 
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Description 

You play assisted by the computer in this simulated golf game. 

Every hole on a golf course falls into one of 3 categories: par 3, 
par 4, or par 5. With an allowance being made for 2 strokes (swing of 
the golf club) on each putting green (where the golf hole is located), 
par is the score that a top-notch golfer would be expected to make on 
each of the holes located throughout the golf course. Therefore, on a 
par 3 hole you are expected to hit the putting green in a single stroke 
off the tee (where the golf ball is initially hit) and take 2 putts. On a 
par 4 you are expected to reach the putting green in 2 strokes. And on 
a par 5, you should reach the green in 3 strokes. 

The total of all the different pars adds up to par for the entire course. 
Most courses have a total par of 72 consisting of 1 0 par 4s, 4 par 5s, 
and 4 par 3s. 

Some of the scoring terms used in golf and in this computer pro- 
gram are as follows: 

“Birdie”— 1 stroke less than par. 

“Eagle”— 2 strokes less than par. 

“Double Eagle”— 3 strokes less than par. 

“Ace” or “Hole in One”—! stroke into the hole. 

“Bogey”— 1 stroke over par. 

“Double Bogey”— 2 strokes over par. 

“Handicap”— The number of strokes over par in which your average 
game is played. For example, if your average is 85 over a par 72 course, 
then your handicap is 85 - 72 or 13. Thus, 13 strokes will be deleted 
from your total score in competition stroke-play. 
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Some of the terms used in golf and in the computer program are as 
follows: 

“Pin”— Golf hole. 

“Fairway”— The lane of grass between the tee and the green. Usu- 
ally the fairway will have obstacles such as water hazards, trees, rough, 
and sand traps. 

“Rough”— High grass. 

“Sand Trap/Bunker”— A shallow pit of sand. 

“Water Hazard”— A pond of water. 

Before the computer game starts, the length of each hole and par 
are given to you at the start of each hole. The clubs are chosen accord- 
ing to the yardage desired. Your putting stroke is measured by a putt 
potency given by the computer. Be cautious— there are trees, rough, 
sand traps, and water hazards. The computer is nice to you, however; 
it gives you your handicap! 


Program notes 

Line 1290-1310 has a set of DATA statements. The numbers in the 
DATA statement are in groups of 4, each group describing the terrain 
and description for its respective hole. For example: 

1290 DATA A,B,C,D,A,B,C,D, 

where A is distance, 

B is par for the course, 

C is the description of the terrain to the right, and 
D is the description of the terrain to the left. 

The descriptions are as follows. If the values of C or D are: 

1. THEN THE COMPUTER PRINTS “FAIRWAY” 

2. THEN THE COMPUTER PRINTS “ROUGH” 

3. THEN THE COMPUTER PRINTS “TREES” 

4. THEN THE COMPUTER PRINTS “ADJACENT FAIRWAY” 

5. THEN THE COMPUTER PRINTS “TRAP” 

6. THEN THE COMPUTER PRINTS “WATER” 


Variable list 

C = Club number picked by player 
D = Distance from tee to hole 
D1 = Yards ball traveled 
D2 = Distance of ball from cup 
F = Current hole number 
G1 = Number of holes for current game 
G2 = Total shots for course by player 
G3 = Total par for course 
H = Handicap of player 
J = Number of penalty strokes assessed 


59 



L( ) = Contains location of obstructions for current hole 
N = Percent of a shot being dubbed in a trap 
O = Number of yards ball is out of line with hole 
P = Par for hole 

Q = Percentage of shot going bad 

51 = Number of shots on current hole 

52 = Number of shots on hole 

W = Percent of swing for clubs 23-29 
Z9 = Putt potency number 


Sample run 


GOLF GAME. 

WHAT IS YOUR HANDICAP?10 

0 : =H0QK , 1-SLICE , 2=DISTANCE, 4=TRAP SHOTS , 5=PUTTING 
WHICH ONE IS YOUR W0RSTT4 


SELECTION OF CLUBS J 


YARDAGE DESIRED 


SUGGESTED CLUBS 


0 TO 100 
100 TO 200 
200 TO 280 


29 TO 23 
19 TO 13 
4 TO 1 


PERCENT OF SWING ON CLUBS 23 TO 29 ARE .01 TO .99 
CHOOSE PUTT POTENCY BY DISTANCE TO HOLE. 

YOUR PUTT POTENCY MUST BE BETWEEN 1 AND 25 


YOU ARE AT HOLE 1 , DISTANCE 361 YARDS, PAR 4 
ON YOUR RIGHT IS ADJACENT FAIRWAY 
ON YOUR LEFT IS ROUGH 
PICK A CLUB?2 


YOU SLICED- BADLY. 

SHOT WENT 238 YARDS. IT'S 132 YARDS FROM THE CUP. 
BALL IS 48 YARDS OFF LINE... IN ADJACENT FAIRWAY 
PICK A CLUB? 18 

ON THE GREEN 36 FEET FROM THE PIN. 

PUTT POTENCY NUMBER725 
YOU HOLED IT. 

SCORE ON HOLE 1 WAS 3 

TOTAL PAR FOR 1 HOLES IS 4 . YOUR TOTAL IS 3 . 

A BIRDIE. 


YOU ARE AT HOLE 2 , DISTANCE 389 YARDS, PAR 4 
ON YOUR RIGHT IS TREES 
ON YOUR LEFT IS TREES 
PICK A CLUB? 1 
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YOU SLICED- SHOT WENT 230 YARDS. IT'S 162 YARDS FROM THE CUP. 
BALL IS 33 YARDS OFF LINE... IN TREES 
PICK A CLUB?15 

ON THE GREEN 42 FEET FROM THE PIN. 

PUTT POTENCY NUMBER?20 
PASSED BY CUP. 

ON THE GREEN 5 FEET FROM THE PIN. 

PUTT POTENCY NUMBER?2 
YOU HOLED IT. 

SCORE ON HOLE 2 WAS 4 

TOTAL PAR FOR 2 HOLES IS 8 . YOUR TOTAL. IS 7 . 

A PAR. NICE GOING. 


YOU ARE AT HOLE 3 r DISTANCE 206 YARDS > PAR 3 
ON YOUR RIGHT IS ADJACENT FAIRWAY 
ON YOUR LEFT IS ROUGH 
PICK A CLUB?4 

BALL HIT TREE - BOUNCED INTO ROUGH 131 YARDS FROM HOLE. 
PICK A CLUBT16 

YOU DUBBED IT. 

SHOT WENT 35 YARDS. IT'S 96 YARDS FROM THE CUP. 

BALL IS 4 YARDS OFF LINE... IN FAIRWAY 
PICK A CLUB? 19 

BALL HIT TREE - BOUNCED INTO ROUGH 21 YARDS FROM HOLE. 
PICK A CLUB729 

PERCENT FULL SWING?. 2 

ON THE GREEN 3 FEET FROM THE PIN. 

PUTT POTENCY NUMBER?2 
YOU HOLED IT. 

SCORE ON HOLE 3 WAS 5 

TOTAL PAR FOR 3 HOLES IS 11 . YOUR TOTAL IS 12 . 


YOU ARE AT HOLE 4 » DISTANCE 500 YARDS » PAR 5 
ON YOUR RIGHT IS OUT OF BOUNDS 
ON YOUR LEFT IS ROUGH 
PICK A CLUB?! 

YOU SLICED- SHOT WENT OUT OF BOUNDS. 

PENALTY STROKE ASSESSED. 

PICK A CLUB?1 

SHOT WENT 235 YARDS. IT'S 265 YARDS FROM THE CUP. 
BALL IS 4 YARDS OFF LINE... IN FAIRWAY 
PICK A CLUB?1 

SHOT WENT 238 YARDS. IT'S 52 YARDS FROM THE CUP. 
BALL IS 44 YARDS OFF LINE... IN FAIRWAY 
PICK A CLUB?28 

PERCENT FULL SWING?. 4 

ON THE GREEN 9 FEET FROM THE PIN. 

PUTT POTENCY NUMBER?5 
YOU HOLED IT. 
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SCORE ON HOLE 4 WAS 6 


TOTAL PAR FOR 4 HOLES IS 16 . YOUR TOTAL IS 18 . 


YOU ARE AT HOLE 5 , DISTANCE 408 YARDS, PAR 4 

ON YOUR RIGHT IS ROUGH 

ON YOUR LEFT IS ADJACENT FAIRWAY 

PICK A CLUB? 




Program listing 


100 CLS: PRINT "GOLF GOME. PRINT 

110 DIM LC10) :G100=1S:G2=0:G3=0:A=0:N=. S:S2=0:F=i 
120 PRINT "WHAT IB YOUR HANDICAP" ; : INPUT H 
130 IF H> 30 THEN 470: IF H<0 THEN 470 

140 PRINT "H=HOOK, S=SLICE, D=DISTANCE, T=TRAP SHOT, P=PUTTING" 

150 PRINT "WHICH ONE IS YOUR WORST" ?: INPUT T$ 

1S0 IF T*="H" THEN T=0 ELSE IF T*="S" THEN T=1 ELSE IF T*="D" THEN T=2 ELSE IF T 
$="T" THEN T=4 ELSE IF T*="P" THEN T=5 
165 CLS 

170 Z9=INT(30*RND<:0> > + 15: IF T<>5 THEN 180 ELSE Z9=Z9~5 

1S0 PRINT "SELECTION OF CLUBS s " s PRINT 

190 PRINT "YARDAGE DESIRED "TAB (35) "SUGGESTED CLUBS" 

200 PRINT 

210 PRINT " 0 TO 100"TAB<40> "29 TO 23" 

220 PRINT "100 TO 200 " TAB 1 40 ) " 1 9 TO 13" 

230 PRINT "200 TO 280 "TAB <40) " 4 TO 1" 

240 PRINT : PRINT "PERCENT OF SWING ON CLUBS 23 TO 29 ARE .01 TO .99" 

250 PRINT "CHOOSE PUTT POTENCY BY DISTANCE TO HOLE." 

260 PRINT "YOUR PUTT POTENCY MUST BE BETWEEN 1 AND"Z9 
280 LC0)=0: J=0:Q=0:S2=S2+1 : K=0 
230 IF F=1 THEN 380 

300 PRINT "SCORE ON HOLE“F-l "WAS"S1 :GOTO 1320 

310 IF SI > P+2 THEN 330 ELSE IF S1=P THEN 340 

320 IF S1=P-1 THEN 350 ELSE IF Sl=P-2 THEN 360 ELSE 380 

330 PRINT "KEEP YOUR HEAD DOWN. ":GOTO 380 

340 PRINT "A PAR. NICE GOING. " : GOTO 380 

350 PRINT "A BIRDIE. ":GOTO 380 

360 IF P=3 THEN 370:PRINT "A GREAT BIG EAGLE. ":GOTO 380 
370 PRINT "A HOLE IN ONE" 

380 IF F=19 THEN 1710 ELSE S1=0 
330 IF S1=0 THEN 1230 

400 IF L I 0 ) < 1 THEN 970 ELSE X=0: IF L<0)>5 THEN 390H 

410 PRINT "SHOT WENT"D1 "YARDS. IT 7 S"D2"YARDS FROM THE CUP." 

420 PRINT "BALL IS" *, INT CO) ' "YARDS OFF LINE. .. IN "S 
430 GOSUB 440: GOTO 540 

440 ON L ( X ) GOTO 480,430,500,510,520,530 
460 PRINT "OUT OF BOUNDS" : RETURN 

470 PRINT "PGA RULES HANDICAP = 0 TO 30" :GOTO 120 

480 PRINT "FAIRWAY" : RETURN 

490 PRINT "ROUGH" : RETURN 

500 PRINT "TREES" : RETURN 

510 PRINT "ADJACENT FAI RWAY" : RETURN 

520 PRINT "TRAP" :RETURN 

530 PRINT "WATER": RETURN 
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540 A=1:PRINT "PICK A CLUB";: INPUT C: PRINT 

550 IF C<1 THEN 5S0 ELSE IF 0 29 THEN 5B0 ELSE IF 0 4 THEN 590 
5S0 IF L<0)<5 THEN S00 ELSE IF 0 7 THEN £00 ELSE 580 
570 S1=S1-1 


5S0 PRINT "THAT CLUB IS NOT IN BAG. PRINT : GOTO 540 

590 IF C < 12 THEN 580 ELSE C=C-£:GOTO 5E0 

E00 S1=S1+1 :W=1 : IF 0 13 THEN S10 

E10 IF INT (F/3) =F/3 THEN 770 

£20 IF C <4 THEN 630 ELSE £40 

£30 IF L<0)=2 THEN 700 

640 IF SI >7 THEN 710 

b50 D1=INT< < (30-H) *2. 5+137- < C30-H) *. 25+15) *C/2) +25+RND <0) ) 
660 D1=INT (Di*W) : IF T=2 THEN 9S0 

670 O=(RNDC0) /. 3) + (2+H+16) +ABSC TAMCDl +3. 500000E-03) ) 

630 D2=INTt;SQRC0+2+ABSCD-Dn + 2 > ) 

E90 IF D-Dl <0 THEN 720 ELSE 740 
700 PRINT "VOU DUBBED IT. " : Di==35 : GOTO 670 
710 IF D <200 THEN 1050 ELSE 650 
720 IF D2 <20 THEN 740 

730 PRINT "TOO MUCH CLUB. PAST THE HOLE. " 

740 B=D : D=D2 


750 IF D2> 27 THEN SS0 ELSE IF D2> 20 THEN 950 ELSE IF D2> . 5 THEN 960 
760 LC0)=9:GOTO 1190 

770 IF S2+Q+a0+CF-l)/lS) <CF-1 )*C72+ < CH +1 ) /. S5D/1S THEN vg 0 
730 GOTO 620 
790 Q=Q +1 

300 IF Sl/2<> INTCS1/2) THEN 350 ELSE 700 
310 PRINT "PERCENT FULL SWING" INPUT W: PRINT 
320 IF W> 1 THEN 570 
330 IF L < 0 ) =5 THEN 1040 

340 IF C=14 THEN 640 ELSE C=C-10:GQTO 640 
350 IF D <95 THEN 700 

360 PRINT "BALL HIT TREE - BOUNCED INTO R0UGH"D-75;" YARDS FROM HOLE 
370 D=D-75: GOTO 540 

330 IF 0 <30 THEN 970 ELSE IF J> 0 THEN 970 ELSE IF T> 0 THEN S'"^ 

390 S9=CS2+1)/15: IF INTCS9)=S9 THEN 930 
900 PRINT "YOU HOOKED- " ; :LC0) =L (2) 

910 IF 0> 45 THEN 940 ELSE GOTO 390 

920 S9= < S2+ 1 .) / 1 5 s I F INTCS9)=S9 THEN 900 

930 PRINT "YOU SLICED- " ; : L<0) =L < 1 ) : GOTO 910 

940 PRINT "BADLY. " :GOTQ 390 

950 L C0) =5 : GOTO 390 

960 L < 0 ) =3 : D2= I NT ( D2*3 ) : GOTO 1090 

970 LC0)=1 :GOTO 390 


930 D1 = INT<:. S5+D1 ) sGOTO 670 

990 IF L C 0 ) > 6 THEN 1030 

1000 PRINT "SHOT WENT INTO WATER. " 

1010 si=si+i 

1020 PRINT "PENALTY STROKE ASSSESSED. " : J=J+ 1 : L <0) =1 s D=B: GOTO 
1030 PRINT "SHOT WENT OUT OF BOUNDS. GOTO 1010 
1040 IF T=3 THEN 1060 


540 


1050 D2-l + t3+INT <30/ <40-H) )=+ : <RND<0) ) ) ) :GOTO 1090 
1060 IF Rh-:RNDC0) > N THEN 1030 ELSE N=N+. 2 
1070 PRINT "SHOT DUBBED, STILL IN TRAP. ":GOTO 540 
1030 N=. 3 : GOTO 1050 

1090 PRINT "ON THE GREEN, "D2"FEET FROM PIN. " 

1100 PRINT "PUTT POTENCY NUMBER" INPUT I : IF I>29 THEN 11^0 

1110 Si=Sl+l : IF D2> I THEN 1140 ELSE 1 1 T 0 

1120 PRINT "MUST BE BETWEEN 1 AND"Z9:G0T0 1100 

1130 IF Sl + l-P) <H+. 072)+2 THEN 1190 

1140 IF SI > 7 THEN 1190 ELSE IF T=5 THEN 1210 

1150 P9=INT < < I+RND <0) +2) +1 ) 

1160 IF D2/Z3 <• 4 THEN 1170 ELSE P3=P9+INT< < 1/100) +D2) 

1170 D2-D2-P9 ' 

1130 IF D2<-2 THEN 1220 ELSE IF D2> 2 THEN 1200 
1190 PRINT "YOU HOLED IT. " : PRI NT : F=F+ 1 : GOTO 230 
1200 PRINT "PUTT SHORT. D2=INT(D2) : GOTO 1090 



1210 D2=D2-< CI*RND<:0) ') :GOTO 1100 

1220 PRINT "PASSED BY CUP. " :D2=-D2: GOTO 1030 

1230 READ D, P, LC1), LC2) : PRINT 

1240 PRINT "YOU ARE AT HOLE"F", DISTANCE"D" YARDS, PAR"P 
1250 G3=G3+P 

12E0 PRINT "ON YOUR RIGHT IS " ; : X=1 :GOSUB 440 

1270 PRINT "ON YOUR LEFT IS " ; : X=2 : GOSUB 440: GOTO 540 

1200 RETURN 

1230 DATA 3S1 , 4, 4, 2, 383, 4, 3, 3, 206, 3, 4, 2, 500, 5, 7, 2, 400, 4, 2, 4, 353, 

1300 DATA 424, 4, 4, 2, 3SS, 4, 4, 4, 136, 3, 7, 2, 400, 4, 7, 2, 560, 5, 7 , 2, 132, 

1310 DATA 357, 4, 4, 4, 234, 4, 2, 4, 475, 5, 2, 3, 375, 4, 4, 2, 180, 3, 6, 2, 550, 


1320 PRINT :G2=G2+S1 

1330 PRINT "TOTAL PAR FOR "F-l "HOLES IS"G3". 
1340 IF GlOF-1 THEN 310 ELSE END 


YOUR TOTAL IS"G2 H ." 
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Description 

This program allows you to vector in on a stationary target. You give 
orders for angle of fire, and the computer either tells you if the target 
is destroyed or how far you missed in yards. The artillery piece you are 
firing has a range of 0 to 90 degrees. Don’t waste your ammo. You only 
have 1 0 shells to play with ! 

Variable list 

A = Angle for shot 
B = Angle picked by player 
G = Total number of shots in game 
H = Total number of targets destroyed 
I = Total number of direct hits 

L — Number of yards shot traveled based on player’s angle 
P = Shells expended in current round 
Q = Number of objects shot at 
S = Number of yards away from object 
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T1 = Total number of targets in game 
T9 = Percentage of shots hit 

Z = Variable used in determining number of yards to object 


Sample run 


THIS IS A GUNNERY GAME 

INSTRUCTIONS? (1 FOR YES)?1 

WELCOME TO BUNKER 7* YOU ARE LOCATED ONLY A FEU 
HUNDRED YARDS FROM THE ENEMY TRENCHES. YOU ARE NOW 
THE GUNNERY COMMANDER. IT IS YOUR DUTY TO DETERMINE 
THE ANGLE OF TROJECTORY AT WHICH TO FIRE YOUR 
ARTILARY. HOWEVER » THESE ARE HARD TIMES AND YOU WILL BE 
LIMITED TO 10 SHELLS PER TARGET. NOTE— THE GUN HAS 
A RANGE OF 0 TO 90 DEGREES. GOOD LUCK !!! 

SIR f THERE IS A MACHINE GUN AT 845 YARDS. 

....... ..»♦»•«♦♦♦»♦♦*.*..**.♦♦♦♦*•• ...... 

WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE725 
A MISS BY 64 YARDS y TRY AGAIN. 


ANGLE— ?27 

BANG y TARGET DESTROYED !!! 

2 SHELL (S) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 
SHALL WE FIRE? <1=YES)?1 


SIR y LOOK ANOTHER MACHINE GUN r AT 708 YARDS. 


WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE?23 
A MISS BY 26 YARDS y TRY AGAIN. 


ANGLE— ?22 

BANGy TARGET DESTROYED !!! 

2 SHELL (S) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 
SHALL WE FIRE? (1=YES)?1 


THEY ARE CHARGING y NOW ONLY 758 YARDS AWAY. 


WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE?24 
BANGy TARGET DESTROYED !!! 

1 SHELL ( S ) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 

SHALL WE FIRE? (1=YES)?1 

THERE y A TANK AT 932 YARDS. 
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WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE732 
A MISS BY 15 YARDS , TRY AGAIN. 

ANGLE— ?33 

BANG, TARGET DESTROYED ! ! ! 

2 SHELL ( S ) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 

SHALL WE FIRE? (1=YES)?1 


THEY ARE RUSHING US, 447 YARDS HERE. 


WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE713.2 
BANG, TARGET DESTROYED ! ! ! 

1 SHELL ( S ) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 

SHALL WE FIRE? (1=YES)?1 


THERE IS A SUPPORT TRENCH, 348 YARDS AWAY. 

WHAT ARE YOUR ORDERS FOR THE ANGLE OF FI RE? 10 
BOOM, DIRECT HIT ! M ! ! 

1 SHELL < S ) EXPENDED. 

WE HAVE SIGHTED ANOTHER TARGET. 

SHALL WE FIRE? (1=YES)?0 


A TOTAL OF 9 SHOTS FIRED OUT OF 6 TARGETS. 
THAT IS AN AVERAGE OF 1.5 SHOTS PER TARGET. 
A TOTAL OF 6 TARGET (S) DESTROYED. 

1 OF THEM BEING DIRECT HITS. 

FINE WORK MEN. MY RATING WAS 90 % 


YOU ARE RATED AS A GENERAL! 
READY. 




Program listing 


100 CLS: PRINT "THIS IS ft GUNNERY GAME" : PRINT 
110 PRINT "INSTRUCTIONS? ( Y=YES) " • 

120 INPUT A$="Y" THEN 130 ELSE 200 

130 CLSs PRINT "WELCOME TO BUNKER 7. YOU ARE LOCATED ONLY A FEW" 
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140 PRINT "HUNDRED YARDS FROM ENEMY TRENCHES. YOU ARE NOW 

150 PRINT "THE GUNNERY COMMANDER., .IT IS YOUR DUTY TO DETERMINE" 

1G0 PRINT "THE ANGLE OF TRAJECTORY AT WHICH TO FIRE YOUR" 

170 PRINT "ARTILLERY. HOWEVER, THESE ARE HARD TIMES AND YOU WILL BE" 
180 PRINT "LIMITED TO 10 SHELLS PER TARGET. NOTE — THE GUN HAS" 

190 PRINT "A RANGE OF 0 TO 30 DEGREES. GOOD LUCK!!!" 

200 PRINT SPRINT "HIT -ENTER- TO BEGIN. INPUT A 
210 A=INT <:90 ! +=RND (0) ) : Z=A: V=100: Z=Z+<3. 1415/180) :F=C5INCZ> )*V 
220 S=a2*F)*<SQRO:V+2)-(F+2))))/9. SsS=INTCS) s IF QO0 THEN 520 
230 PRINT "SIR, THERE IS A MACHINE GUN AT M S" YARDS. " 

240 PRINT " " 

250 PRINT 

2S0 PRINT "WHAT ARE YOUR ORDERS FOR THE ANGLE OF FIRE"; 

270 P=l: INPUT BsGOTO 310 

280 PRINT s P=P+1 s IF P=ll THEN 470 ELSE PRINT " ANGLE™" INPUT B 

230 IF B> 30 THEN 370 ELSE IF B<0 THEN 370 
300 IF B=30 THEN 380 

310 E=B : E=E=+ : <3. 1415/180) s Q=S I N ( E ) *V s L= < < 2*0 ) * C SQR < < V+2 ) - < 0 + 2 ) ) ) ) /g . 8 
320 L= I NT C L ) : M=ABS C S-L ) 

330 IF B=0 THEN 390 ELSE C=A+1 : D=A- 1 : IF 8>=D THEN 340 ELSE 350 
340 IF B <=C THEN 400 

350 IF P=10 THEN 450 ELSE IF A=B THEN 400 ELSE IF M=0 THEN 400 

380 PRINT "A MISS BY"M" YARDS, TRY AGAIN. "sGOTO 280 

370 PRINT "THAT ORDER IS OUT OF RANGE, TRY AGAIN. " s P-P-l : GOTO 280 

380 PRINT "CONGRATULATIONS, YOU HAVE JUST BLOWN UP YOURSELF !" sGOTO 280 

390 PRINT "YOU HAVE JUST BLOWN UP YOUR OWN LINES! "sGOTO 280 

400 H=H+1 

410 IF B=A THEN 420 ELSE PRINT "BANG, TARGET DESTROYED !!!" s GOTO 430 
420 1 = 1 + 1 s PRINT "BOOM, DI RECT HIT ! ! ! ! ! " 

430 PRINT 

440 PRINT P" SHELL (S) EXPENDED. " s GOTO 470 

450 PRINT "A MISS BY ,, M"YARDS BUT, THOSE ARE ALL YOUR SHELLS." 

480 PRINT "THE CORRECT ANGLE OF FIRE WAS"A SPRINT 
470 PRINTsPRINT "WE HAVE SIGHTED ANOTHER TARGET." 

480 T1=T1+1 

430 PRINT "SHALL WE FIRE? C Y=YES) ";s INPUT R$ 

500 G=G+Ps P=30s IF R*="Y" THEN 510 ELSE 890 
510 PRINT : PRINT sQ=Q+l sGOTO 200 
520 ON G GOTO 540,570,600,830,860 
530 Q=0 sGOTO 230 

540 PRINT "SIR, LOOK ANOTHER MACHINE GUN, AT"S" YARDS. " 

550 PRINT " " 

560 PRINT sGOTO 280 

570 PRINT "THEY ARE CHARGING, NOW ONLY"S" YARDS AWAY. " 

580 PRINT " " 

590 PRINT sGOTO 280 

600 PRINT "THERE, A TANK AT"S" YARDS. " 

610 PRINT " " 

620 PR I NT sGOTO 260 

830 PRINT "THEY ARE RUSHING US, "S" YARDS AWAY. " 

840 PRINT " " 

650 PRINT SGOTO 260 

680 PRINT "THERE IS A SUPPORT TRENCH, "S" YARDS AWAY. " 

670 PRINT " " 

680 PR I NT s GOTO 260 
690 PRINTsPRINTsPRINT 

700 PRINT "A TOTAL OF"G"SHOTS WERE FIRED OUT QF"T1 "TARGETS. " 

710 T9=INT < CG/T1 )*100) / 100 

720 PRINT "THAT IS AN AVERAGE OF"T9"SHOTS PER TARGET. " 

730 PRINT "A TOTAL OF "H" TARGET CS) WERE DESTROYED." 

740 PRINT I ; "OF THEM WERE DIRECT HITS." 

750 PRINT "FINE WORK MEN. MY RATING WAS"? 

760 T9=( < 11-C3/T1) ) -T9) *10:T9=INT<T9+100)/ 100 SPRINT T9"y." 

770 PRINTsPRINT; IF T9 <20 THEN 860 ELSE PRINT "YOU ARE RATED AS A "; 

780 IF T9> 30 THEN PRINT " "GENERAL !" SEND 
790 IF T9> 80 THEN PRINT "COLONEL !" s END 
800 IF T9) 70 THEN PRINT "CAPTAIN !" S END 
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S10 

320 

330 

340 

350 

330 

370 


IF T9> 30 THEN PRINT 
IF T9> 50 THEN PRINT 
IF T9> 40 THEN PRINT 
IF T9> 30 THEN PRINT 
IF T9> 20 THEN PRINT 
PRINT "YOU HAVE NO 


"LIEUTENANT ! " : END 
"SERGEANT ! " :END 
"CORPORAL! " : END 
"PRIVATE FIRST CLASS! " : END 
"PRIVATE! " : END 

RATING! YOU WERE SO HOPELESS!!!" 


END 
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Description 

The object of this game is to beat the other players by having 1 of your 
1 2 horses finish before 1 of the other player’s 1 2 horses finishes (win). 
Each player throws a pair of dice. The player then decides which of his 
12 horses to advance based on the dice that were thrown. The player 
can either combine (add) the dice and move the horse with that number 
1 length, or he can advance 2 horses 1 length. In the latter situation 
each horse number would be one of the dice thrown. 

For example, let’s say that the player throws a 5 and a 3. Then he 
can advance the 8 horse (5 + 3) 1 length or advance the 5 horse and the 
3 horse 1 length each. 

Note 

Because some numbers are easier to throw than others, the amount of 
lengths each horse must travel differs according to the probability of 
throwing that number (see NOTONE probability table.) 


Variable list 

D = Contents of die one 
D1 = Contents of die two 

N( ) = Number of lengths each horse has actually traveled for each 
player 
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P = Number played by player 
Q = Number of players 

T( ) = Number of lengths each horse number needs to travel in order 
to win 


Sample run 


THIS IS A HORSE RACE GAME ♦ 

DO YOU WANT THE INSTRUCTIONS? (1 FOR YES)?1 


THIS IS A HORSE 
THE OTHER PLAYER 
BEFORE THE OTHER 


RACE GAME. THE OBJECT OF THE GAME IS TO BEAT 
BY HAVING ONE OF YOUR TWELVE HORSES FINISH 
PERSON'S HORSE FINISHES. 


THIS IS DONE BY EACH PERSON THROWING A PAIR OF- DICE. 

AFTER THE DICE ARE THROWN r THAT PLAYER THEN DECIDES WHICH HORSE 
TO ADVANCE BASED ON THE DICE THAT WERE THROWN. YOU CAN EITHER 
COMBINE (ADD) THE DICE AND MOVE THAT HORSE ONE LENGTH r OR YOU 
CAN ADVANCE TWO HORSES ONE LENGTH t EACH HORSE BEING 
ONE OF THE DICE THROWN. 


LET'S SAY THAT YOU THROW A 5 AND A 3. THEN YOU CAN ADVANCE 
THE 8 HORSE (5 + 3) ONE LENGTH OR ADVANCE THE 5 HORSE AND I HE 
3 HORSE ONE LENGTH. 

BECAUSE SOME NUMBERS ARE EASIER TO THROW THAN OTHERS r THE AMOUNT 
OF LENGTHS EACH HORSE MUST TRAVEL DIFFERS ACCORDING TO THE 
PROBABILITY OF THROWING THAT NUMBER. 


GOOD LUCK. 


HOW MANY PLAYERS?2 

PRINT A TABLE? (1 FOR YES>?1 

PERSON 1 


1 

- ( 

) ( 

) ( 

) ( 

) 





2 

- ( 

) ( 

) ( 

) ( 

) ( 

) ( 

) 



3 

- ( 

> ( 

) ( 

) ( 

) ( 

) ( 

) 



4 

- ( 

> ( 

> ( 

) ( 

) ( 

) ( 

) ( 

) ( 

) 

5 

- ( 

> ( 

> ( 

) ( 

) ( 

) ( 

) ( 

) ( 

) 

6 

- ( 

) ( 

) ( 

) ( 

) ( 

) ( 

) ( 

) ( 

> ( 

7 

- ( 

) ( 

> ( 

) ( 

) ( 

) ( 

) 



8 

- ( 

) ( 

) ( 

) ( 

) ( 

) ( 

) 



9 

- < 

) ( 

) ( 

) ( 

) 





10 

- ( 

) < 

) ( 

) ( 

> 





11 

- < 

) ( 

) 







12 

- < 

: )( 

) 







•ERSON 

2 








1 

- < 

: ) ( 

) ( 

) ( 

) 





2 

- ( X 

) ( 

) ( 

) ( 

) ( 

> 



3 

- ( ) ( 

) ( 

) ( 

) ( 

> ( 

) 



4 

- ( )( 

) ( 

) ( 

) ( 

) < 

) ( 

) ( 

) 

5 

- i 

: x 

) ( 

) ( 

) ( 

) ( 

) ( 

) ( 

) 

6 

- i 

C ) ( 

) ( 

) ( 

) ( 

) ( 

) ( 

) ( 

> ( 


) ( ) 


) ( ) 
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10 - < X )( )< ) 

11 - ( )( ) 

12 - ( )( ) 


PLAYER i 'S TURN. 

YOU THREW A 2 AND A A 

WHAT NUMBER DO YOU PLAY?2 

PLAYER 2 'S TURN. 

YOU THREW A 2 AND A A 

WHAT NUMBER DO YOU PLAY76 


PRINT A TABLE? <1 FOR YES)?1 
PERSON 1 


1 -<><><>(> 

2 - <*X X X X X > 

3 -<><><>()<><) 

4 ~ (*X )( X )< >( )< )< > 

5 "(XXX X )< )< )( ) 

6 - < > < X X X X X X X 

7 ~ < X X X X )( ) 

8 - < X X X X )( ) 

9 -(XXX) 

10 - ( X x X ) 

11 - ( X ) 

12 - ( )( ) 

PERSON 2 


1 

- ( 

) ( 

) ( 

) ( 

2 

- ( 

) ( 

) ( 

) ( 

3 

- ( 

) ( 

) ( 

) ( 

A 

- ( 

) ( 

> < 

> ( 

5 

- ( 

) ( 

) ( 

) ( 

6 

- (*X 

) ( 

) ( 

7 

- ( 

) ( 

) ( 

) ( 

8 

- ( 

) ( 

) ( 

) ( 

9 

- ( 

) ( 

) ( 

) ( 

10 

- ( 

) ( 

) ( 

) ( 

11 

- ( 

) ( 

) 


12 

~ ( 

) ( 

) 



> 

X X ) 

)( X ) 

) ( X ) ( X ) 

> ( X ) ( X ) 

> ( > ( X X ) ( 
XX) 

) ( ) ( ) 

) 

) 


PLAYER 1 'S TURN. 

YOU THREW A 6 AND A 1 
WHAT NUMBER DO YOU PLAYTI 

PLAYER 2 'S TURN. 

YOU THREW A 5 AND A A 
WHAT NUMBER DO YOU PLAYT5 


PRINT A TABLE? (1 FOR YES)?0 


X ) 


) ( ) 
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PLAYER 1 'S TURN. 

YOU THREW A A AND A 1 
WHAT NUMBER DO YOU PLAY?4 

PLAYER 2 'S TURN. 

YOU THREW A A AND A 5 
WHAT NUMBER DO YOU PLAY?4 

PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 "S TURN. 

YOU THREW A 3 AND A 5 
WHAT NUMBER DO YOU PLAY?3 

PLAYER 2 'S TURN. 

YOU THREW A 1 AND A 2 
WHAT NUMBER DO YOU PLAYT3 

PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 5 AND A 6 
WHAT NUMBER DO YOU PLAY?11 

PLAYER 2 'S TURN. 

YOU THREW A 1 AND A 6 
WHAT NUMBER DO YOU PLAY?6 

PRINT A TABLE? <1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 2 AND A 4 
WHAT NUMBER DO YOU PLAY?4 

PLAYER 2 'S TURN. 

YOU THREW A 2 AND A 5 
WHAT NUMBER DO YOU PLAY?5 

PRINT A TABLE? <1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 6 AND A 2 
WHAT NUMBER DO YOU PLAY?6 

PLAYER 2 'S TURN. 

YOU THREW A 6 AND A 1 
WHAT NUMBER DO YOU PLAY?6 

PRINT A TABLE? (1 FOR YES)?0 
PLAYER 1 'S TURN. 
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YOU THREW A 4 AND A 2 
WHAT NUMBER DO YOU PLAYT4 

PLAYER 2 'S TURN. 

YOU THREW A 2 AND A 6 
WHAT NUMBER DO YOU PLAYT2 


PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 3 AND A 3 
WHAT NUMBER DO YOU PLAYT3 

PLAYER 2 'S TURN. 

YOU THREW A 5 AND A 2 
WHAT NUMBER DO YOU PLAY?5 


PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 2 AND A 6 
WHAT NUMBER DO YOU PLAY?5 
ILLEGAL MOVE. 

WHAT NUMBER DO YOU PLAY?6 

PLAYER 2 'S TURN. 

YOU THREW A 6 AND A 1 
WHAT NUMBER DO YOU PLAY?6 


PRINT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 2 AND A 1 
WHAT NUMBER DO YOU PLAY?3 

PLAYER 2 'S TURN. 

YOU THREW A 5 AND A 4 
WHAT NUMBER DO YOU PLAY?5 


PRINT A TABLE? (1 FOR YES)?1 


PERSON 1 


1 - 

<*)<*)< 

) ( 

) 






2 - 

<*>(*)< 

*)<*)(*> 

( 

) 



3 - 

<*><*>( 

*)(*>< 

) 

( 

) 



4 - 

<*)<*>< 

*><*>< 

) 

( 

) ( 

> ( 

) 

5 ~ 

<*> < 

) ( 

) < 

) ( 

) 

( 

) ( 

) < 

) 

6 -- 

(#)(*)( 

*) < 

) ( 

) 

< 

> ( 

> ( 

) 

7 - 

( ) ( 

) < 

) ( 

) ( 

) 

( 

) 



8 - 

( >( 

) ( 

) ( 

> ( 

) 

( 

) 



9 _ 

( ) < 

) ( 

) < 

> 






10 - 

< ) ( 

) < 

> ( 

) 






11 - 

<*) ( 

> 








12 ~ 

( ) ( 

) 
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PERSON 


1 - <#)(*><*>< ) 

2 - (*)(#)<*>< ) < ) < > 

3 -(*)()()<)<)() 

4 - <*><*><*>< > < ) ( > < >< > 

5 - <*> <*> <*> <*>(#>( X ) ( > 

6 - (*><*> <*> <*)<*> ( > ( ) < > ( 


7 - 

( 

) ( 

) < 

) ( 

) ( 

) < 

) 

8 - 

( 

) < 

) ( 

> ( 

) ( 

) < 

> 

9 - 

( 

) < 

) ( 

) ( 

) 



10 - 

( 

) < 

> < 

) ( 

) 



11 - 

( 

) < 

) 





12 - 

( 

) ( 

) 






PLAYER 1 'S TURN. 

YOU THREW A 5 AND A 5 
WHAT NUMBER DO YOU PLAY?5 

PLAYER 2 'S TURN. 

YOU THREW A 6 AND A 3 
WHAT NUMBER DO YOU PL.AY76 


PRINT A TABLE? <1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 1 AND A 4 
WHAT NUMBER DO YOU PLAYT1 

PLAYER 2 'S TURN. 

YOU THREW A 5 AND A 3 
WHAT NUMBER DO YOU PLAY?5 


PRINT A TABLE? <1 FOR YES)?0 

PLAYER 1 'S TURN. 

YOU THREW A 3 AND A 3 
WHAT NUMBER DO YOU PLAY?3 


PERSON 1 

1 - <#)<*)(*>< ) 

2 - <*><*><*><*><*>< ) 

3 -OK) <*) <*)<#><*><*) 

4 - <*)<*)(*>(#><*>< > ( ) ( > 

5 - <*)<*><*>( > ( ) ( ) ( ) < ) 

6 - <*><#)<*>( ) ( ) ( ) ( ) < ) < 


7 - 

( ) ( 

) < 

> < 

) ( 

) ( ) 

8 - 

( )< 

> ( 

> < 

) ( 

) ( ) 

9 - 

< ) ( 

) ( 

> < 

) 


10 - 

< ) < 

> ( 

) ( 

) 


11 - 

<*> ( 

) 




12 - 

< ) ( 

> 





) ( ) 


) ( ) 
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PERSON 2 


1 - 

<*> O 

to o 

K ) < 

) 





2 — 

(*> <J 

K> O 

It) < 

) ( 

) ( 

) 



3 - 

<*) Ok) (*) < 

) ( 

) ( 

) 



4 - 

<*><*><*>< 

) ( 

) ( 

) ( 

) ( 

) 

5 - 

<*><*)<*)<* 

)<*)<*)< 

) < 

) 

6 - 

<*) <*><*><* 

) (*) (*> < 

> ( 

) ( 

7 - 

( > < 

) ( 

> ( 

) ( 

) < 

) 



8 - 

( > < 

> ( 

> < 

> ( 

) ( 

) 



9 - 

( ) ( 

) < 

) < 

) 





10 - 

< ) < 

) ( 

> < 

) 





11 - 

( ) < 

) 







12 - 

( > ( 

) 








PLAYER 1 HAS JUST WON WITH THE 3 HORSE » 
******CONGRATULATIONS TO PLAYER 1 . 


READY, 




Program listing 


30 

100 

110 

120 

130 

140 

150 

155 

1B0 

170 

1S0 

130 

200 

210 

220 

230 

240 

250 

2E0 

270 

2S0 

230 

235 

300 

310 

320 

330 


CLS 

DIM T(12), NC10, 12) 

FOR 1 = 1 TO 12 s READ TCI) .'NEXT I 
DAT A 4, S, S, S, S, 10, S, G, 4, 47 2 t 2 

PRINT s PRINT "THIS IS 0 HORSE RACE GAME. ": PRINT 
PRINT "DO YOU WANT INSTRUCTIONS? <1=YES>" ? 

INPUT A: IF AOl THEN 350 
CLS 

PRINT "THIS IS A HORSE RACE GAME. THE OBJECT OF THE GAME IS TO BEAT" 
PRINT "THE OTHER PLAYER BY HAVING ONE OF YOUR TWELVE HORSES FINISH" 
PRINT "BEFORE THE OTHER PERSON’S HORSE FINISHES." 

PRINT 

PRINT "THIS IS BY EACH PERSON THROWING A PAIR OF DICE." 

PRINT "AFTER THE DICE ARE THROWN, THAT PLAYER THEN DECIDES WHICH HORSE 
PRINT "TO ADVANCE BASED ON THE DICE THAT WERE THROWN. YOU CAN EITHER" 
PRINT "COMBINE (ADD) THE DICE AND MOVE THAT HORSE ONE LENGTH, OR YOU" 
PRINT "CAN ADVANCE TWO HORSES ONE LENGTH, EACH HORSE BEING" 

PRINT "ONE OF THE DICE THROWN. ": PRINT 

PRINT "LET’S SAY THAT YOU THROW A 5 AND A 3. THEN YOU CAN ADVANCE" 
PRINT "THE S HORSE (5 + 3) ONE LENGTH OR ADVANCE THE 5 HORSE AND THE" 
PRINT "3 HORSE ONE LENGTH. " 

PRINT : PRINT "PRESS ENTER TO CONTINUE INPUT X 
CLS 

PRINT "BECAUSE SOME NUMBERS ARE EASIER TO THROW THAN OTHERS, THE" 

PRINT "AMOUNT OF LENGTHS EACH HORSE MUST TRAVEL DIFFERS ACCORDING TO" 
PRINT "THE PROBABILITY OF THROWING THAT NUMBER." 

PRINT : PRINT "GOOD LUCK ! ! ! !" 


u 
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340 PRINT 

350 PRINT "HOW MANY PLAYERS" ;: INPUT Q 

360 IF Q <=0 THEN 350 

365 IF Q> 10 THEN 350 

370 PRINT :GOSUB 650 

375 PRINT 

3S0 FOR X=1 TO Q 

390 PRINT "PLAYER ";X;"’S TURN. ":PRINT 

400 D=INTC6*RNDC0> )+l :D1=INT(6*RNDC0) ) + i 

410 PRINT "YOU THREW A ";D;" AND A ";D1 

420 PRINT "WHAT NUMBER DO YOU WISH TO PLAY" ;: INPUT P 

430 IF D+D1=P THEN 440 

435 GOTO 450 

440 N C X » P ) =N < X » P ) + 1 s GOTO 540 

450 IF D=P THEN 480 

460 IF D1 =P THEN 470 

465 GOTO 530 

470 D1=0:GOTO 490 

480 D=0 

490 NCX, P ) =N C X i P) + l 
500 IF D1=0 THEN 520 
505 P=D1 
510 GOTO 440 
520 P=D:GOTO 440 

530 PRINT : PRINT "ILLEGAL MOVE. " : PR I NT: GOTO 420 

540 FOR P=1 TO 12 

550 IF N(X,P) <T(P) THEN 555 

553 GOTO 580 

555 NEXT P 

560 PRINT: NEXT X 

570 GOTO 370 

580 PRINT: PRINT:GOSUB 670 
590 PRINT : PRINT 

600 PRINT "PLAYER "'X;" HAS JUST WON WITH THE #";P;" HORSE. 
610 PRINT “****** CONGRATULATIONS TO PLAYER ";X;"." 

620 PRINT : PRINT 
630 PRINT: PRINT 
640 GOTO 770 

650 PRINT "PRINT A TABLE? Cl FOR YES')"; 

660 INPUT A: IF A=1 THEN 670 
665 RETURN 

670 FOR N=1 TO Q:CLS:PRINT "PERSON ";N:PRINT 
680 FOR K=1 TO 12:PRINT K;:IFK>9 THEN 690 
685 PRINT " 

690 PRINT "- " ; 

700 FOR M=i TO TCK): PRINT " C " ; 

710 IF NCN, KXM THEN 715 
713 GOTO 720 
715 PRINT " " ; : GOTO 730 
720 PRINT "t:"; 

730 PRINT " ) " * : NEXT M: PRINT 
740 NEXT K 

745 FOR W=1 TO 750: NEXT W 
750 NEXT N 
755 CLS 

760 PRINT : PRINT : RETURN 
770 END 




Description 

Let’s go to Las Vegas! This game is one of chance. Slot machines are 
found in most gambling rooms throughout the world. Most slot ma- 
chines are made up of 3, 4, or more vertical reels (wheels) on which 
various symbols are marked. The symbols are usually a cherry, orange, 
bell, plum, apple, and a bar. A handle is pulled in order to spin the 
wheels which stop eventually to produce outcomes. These outcomes 
are created when symbols appear on the center line indicator. Different 
payoffs are given for winning combinations of symbol outcomes. A 
Jackpot pays the highest and usually, as in the case of this computer 
game, it is a combination of 3 bar symbols. 

In order to “pull the handle” in this computer game, simply hit the 
return key on your terminal keyboard. Keep plenty of loose change on 
hand— you’ll need it! 


78 


Variable list 


A( ) = Object the reel stopped on 

M = Amount of money owned by player 
R( ) = Contents of objects on each reel 

W = Number of dollars won in current spin 


Jackpot probability table 

Outcomes 


Payoff Chance in 

($) 8000 plays Probability % 


Cherry 

Anything 

Anything 

3 

4 

X 

14 X 20= 1120 

1120/8000 

14 

Cherry 

Cherry 

Anything 

5 

4 

X 

6 

X 

20 = 480 

480/8000 

6 

Orange 

Orange 

Bar 

6 

5 

X 

4 

X 

1 = 20 

20/8000 

0.25 

Bell 

Bell 

Orange 

8 

4 

X 

6 

X 

7 = 168 

168/8000 

2.1 

Plum 

Plum 

Plum 

10 

3 

X 

2 

X 

4 = 24 

24/8000 

0.3 

Apple 

Apple 

Anything 

15 

3 

X 

1 

X 

18 = 54 

54/8000 

0.7 

Orange 

Orange 

Orange 

18 

5 

X 

4 

X 

7 = 140 

140/8000 

1.75 

Apple 

Apple 

Apple 

20 

3 

X 

1 

X 

3 = 9 

9/8000 

0.1 

Bell 

Bell 

Bell 

30 

4 

X 

6 

X 

5 = 120 

120/8000 

1.5 

Bar 

Bar 

Bar 

200 

(Jackpot) 

1 

X 

1 

X 

1 = 1 

1 /8000 

0.0125 


Note: A) The term “anything” used in the payoff table and the probability table is to denote any symbol including 
cherry, orange, bell, plum, apple, and a bar. 

B) The 8000 play combinations figure is derived by recognizing that there are 3 reels on a jackpot machine 
and each reel has 20 combinations. Therefore, 20 X 20 X 20 = 8000. 


Sample run 
JACKPOT GAME. 

DO YOU WANT A LIST OF THE PAYOFFS? (1=YES)?1 


REEL 1 

REEL. 2 

REEL 3 

PAYOFF 

CHERRY 

ANYTHING 

ANYTHING 

3 DOLLARS 

CHERRY 

CHERRY 

ANYTHING 

5 DOLLARS 

ORANGE 

ORANGE 

BAR 

6 DOLLARS 

BELL 

BELL 

ORANGE 

8 DOLLARS 

PLUM 

PLUM 

PLUM 

10 DOLLARS 

APPLE 

APPLE 

ANYTHING 

15 DOLLARS 

ORANGE 

ORANGE 

ORANGE 

18 DOLLARS 

APPLE 

APPLE 

APPLE 

20 DOLLARS 

]B E! L L 

BELL 

B E> L L 

30 DOLLARS 

BAR 

BAR 

BAR 

200 DOLLARS 
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YOU HAVE $ 15 


HIT RETURN TO PULL HANDLE 

BAR CHERRY PLUM YOU WIN $ 0 

AGAIN? ( 1 -YES ) ?1 

YOU HAVE $ 14 

HIT RETURN TO PULL HANDLE 

APPLE ORANGE BELL YOU WIN $ 0 

AGAIN? <1=YES)?1 

YOU HAVE $ 13 

HIT RETURN TO PULL HANDLE 

ORANGE CHERRY ORANGE YOU WIN * 0 

AGAIN? ( 1-YES ) ?1 

YOU HAVE * 12 

HIT RETURN TO PULL HANDLE 

BELL CHERRY BELL YOU WIN $ 0 

AGAIN? <1=YES)?0 

TOO BAD j YOU LOST $ 4 
READY . 




Program listing 


JACKPOT 


100 

CLS 

110 

PRINT 

120 

PRINT 

130 

INPUT 

135 

CLS 

140 

PRINT 

150 

PRINT 

160 

PRINT 

170 

PRINT 

1S0 

PRINT 

190 

PRINT 

200 

PRINT 

210 

PRINT 

220 

PRINT 

230 

PRINT 

240 

PRINT 


"JACKPOT GAME. " : PRINT 

"DO YOU WANT A LIST OF PAYOFFS? CY=YES) " ; 
A$: PRINT: PRINT: IF A$="Y" THEN 135 ELSE 260 

"REEL 1 " i " REEL 2", "REEL 3", "PAYOFF" : PRINT 
"CHERRY", "ANYTHING", "ANYTHING", "3 DOLLARS" 
"CHERRY", "CHERRY", "ANYTHING", "5 DOLLARS" 
"ORANGE", "ORANGE", "BAR", "6 DOLLARS" 

"BELL", "BELL", "ORANGE", "S DOLLARS" 

"PLUM", "PLUM", "PLUM", "10 DOLLARS" 

"APPLE", "APPLE", "ANYTHING", "15 DOLLARS" 
"ORANGE", "ORANGE", "ORANGE", "IS DOLLARS" 
"APPLE", "APPLE", "APPLE", "20 DOLLARS" 
"BELL", "BELL", "BELL", "30 DOLLARS" 

"BAR", "BAR", "BAR", "200 DOLLARS" 
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250 PRINT :PRINT "HIT -ENTER- TO START. .. " s INPUT A 

260 DIM AC3), RC3, 20) T kll _ v/ _ v 

270 FDR X=i TO 20 s FOR 1 = 1 TO 3 s READ R<. 1 * X ) s NEXT Is NEXT X 

2S0 DATA 2, 4, 2, 5, 1, 4, 2, 2, 5, 6, 4, 6, 1, 1, 2 

290 DATA 4, 2? 6, 5, hi 5i Ei 1, 4, 4, 5, 3, 5, 5, 5, 1 , 1, 2, 2, 2, hi hi hi hi 1, ■-•, - 

300 DATA 3, 4,2, 2, 1, 4, 6, 2, 5, 1, 4, 2, 4, 6, 4, 2, 1, 2 
310 M=15 

320 CLS SPRINT "YOU HAVE Ms PRINT 

330 PRINT "HIT -ENTER- TO PULL HANDLE" 5 s INPUT A 

340 PRINT SPRINT 

350 FOR 1 = 1 TO 3s X=INTC20*RNDC0) ) + l : AC I)-RC I, X) 

360 GOSUB 620 s NEXT IsW=0 

370 IF A (1)04 THEN 400 ELSE IF A (2) 0 4 THEN 520 

380 IF A (3) =4 THEN 390 ELSE IF A(3)<>2 THEN 520 ELSE W=BsGOTO 520 

400 IF AC 1)05 THEN 420 ELSE IF AC2)<>5 THEN 520 ELSE IF AC3)<>5 THEN 

420 IF* AC 1)03 THEN 440 ELSE IF AC2)03 THEN 520 ELSE IF AC3)03 THEN 

430 W=200 : GOTO 520 

440 IF AC 1)01 THEN 460 ELSE IF AC2)=1 THEN 450 ELSE W=3sG0T0 520 


520 

520 


450 W=5SG0T0 520 

460 IF AC 1) 0 2 THEN 490 

470 IF A C 3 ) 0 2 THEN 520 

480 W=6sG0T0 520 

490 IF AC 1)0 6 THEN 520 

500 IF A C 3 ) 0 6 THEN 520 


ELSE IF AC 2) 0 2 THEN 520 ELSE IF A<3)=3 
ELSE W=18s GOTO 520 

ELSE IF A C 2 ) 0 6 THEN 520 ELSE IF AC3)=3 
ELSE W=20s GOTO 520 


510 W=15s GOTO 520 

520 IF WO 200 THEN 530 ELSE PRINT "***** JACKPOT *****■', 


THEN 480 


THEN 510 


530 PRINT "YOU WIN $";UJs PRINT 
540 M=M-1+Ws PRINT "AGAIN? CY=YES)" ? 

550 INPUT A* SPRINTS IF A$="Y" THEN 320 ELSE PRINT 

560 IF M < 15 THEN 580 ELSE PRINT "CONGRATULATIONS, YOU WON *";M-15 

570 GOTO 680 _ „ 

580 IF M <0 THEN 590 ELSE PRINT "TOO BAD, YOU LOST $";15-M:GQiO &o0 
590 PRINT "YOU HAVE 10 DAYS TO PAY ME $" ; 15-MS". AFTER THAT" 

600 PRINT "IT IS OUT OF MY HANDS AS TO WHAT HAPPENS TO YOU!" 

610 GOTO 680 

620 IF A C I ) = 1 THEN PRINT "CHERRY" , 3 RETURN 
630 IF AC I )=2 THEN PRINT "ORANGE" , s RETURN 
640 IF A C I ) =3 THEN PRINT "BAR" , s RETURN 
650 IF AC I) =4 THEN PRINT "BELL ", : RETURN 
660 IF A C I ) =5 THEN PRINT " PLUM" , s RETURN 
670 PRINT "APPLE", s RETURN 


680 END 
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Description 


The object of this computer-simulated dice game is to roll a set of dice 

3 times to obtain a scoring combination and to achieve the highest total 
score for all games (up to 6 games). The game may be played by 2, 3 or 

4 persons. It also can be played solitaire by going for the highest possi- 
ble score. For the first roll of the dice the player must roll all 5 dice. 

For the second and third rolls the player may pick up 1 , 2, 3, 4, or even 

5 of the dice and roll them again. The player may stop after the first 
roll, but if he chooses to roll 3 times, the third and final roll must be 
scored. 


In each game there are 15 scoring boxes in a vertical column on a 
score sheet. A player must make his own decision about what and where 
to score based on his individual strategy. 

In the Upper Section (BASIC Section) of the score sheet, there are 
“Aces” (ones), “Deuces” (twos), “Treys” (threes), “Fours,” “Fives,” 
and Sixes. If a player chooses to score in one of the 6 boxes in the 
Upper Section, he counts and adds only the dice with the same number 
and enters the total of the dice in the appropriate score box. A bonus 
section is included for scoring extra points. If the player scores 63-70 
in the Upper Section he adds 35 points to his score; for 71-77 he adds 
55 points; and for 78 or over he adds 75 points. 

The Lower Section (KISMET Section) of the score sheet is played 
as follows: 


A) 2 pair same color— total all dice (points) 

B) 3 of a kind— total all dice (points) 

C) Straight 1 , 2, 3, 4, 5 or 2, 3, 4, 5, 6—30 points 

D) Flush (all same color)— 35 points 

E) Full house-total all dice plus 15 points 
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F) Full house same color— total all dice plus 20 points 

G) 4 of a kind— total all dice plus 25 

H) Yarborough — one chance to score total of all dice on a low-scoring 
throw of the dice 

I) KISMET (5 of a kind)— total all dice plus 50 points 

The grand total is obtained by adding the Upper and Lower Section 
scores together. Your strategy of rolling the dice and obtaining good 
scoring combinations is the key to this game! 


Variable list 

A = Location number picked by player 
B( ) = Amount of points for each player broken down by type 
D = Current dice amount 
D( ) = Dice amount picked for each die 

E = Flag to determine if location placement is legal 
E = 1 error 

E = 0 location okay to use 
M = Total points for current board 
P = Number of points for location picked 
P6 = Player number being processed 
P9 = Number of players 

Q = Working variable that keeps track of dice being processed 
R9 = Number of rounds completed (maximum of 15) 

X = Location number picked (for subroutine) 

X( ) = Number of times a dice amount has appeared on current throw 


Sample run 


THIS IS THE GAME OF KISMET ♦ 

HOW MANY WISH TO PLAYT1 

DO YOU WANT A TABLE? (1 FOR YES)?1 


PLAYER 1 


1 - 

ACES 



1 

FOR 

EACH 

ACE 

0 

O — 

DEUCES 




FOR 

EACH 

DEUCE 

0 

3 - 

TREYS 



3 

FOR 

EACH 

TREY 

0 

A - 

FOURS 



A 

FOR 

EACH 

FOUR 

0 

5 - 

FIVES 



5 

FOR 

EACH 

FIVE 

0 

6 - 

SIXES 



6 

FOR 

EACH 

SIX 

0 

TOTAL BASIC SECTION 






0 

7 - 

2 PAIR 

SAME 

COLOR 

TOTAL 

DICE 


0 

e - 

3 OF A KIND 



TOTAL 

DICE 


0 

9 - 

STRAIGHT 



30 

POINTS 


0 

10- 

FLUSH 

SAME 

COLOR 

35 

POINTS 


0 
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11- FULL HOUSE TOTAL DICE + 15 0 

12- FULL HOUSE SAME COLOR TOTAL DICE +20 0 

13- 4 OF A KIND TOTAL DICE + 25 0 

14- YARBOROUGH FREE TURN TOTAL DICE 0 

15- KISMET 5 OF A KIND TOTAL DICE + 50 0 

TOTAL GAME TOTAL 0 


PLAYER 1 'S TURN. 

DICE 1 IS A 2 RED 
DICE 2 IS A 3 GREEN 
DICE 3 IS A 6 BLACK 
DICE 4 IS A 6 BLACK- 
DICE 5 IS A 5 RED 

HOW MANY TO REPLACE? (0 TO ST0P>?1 
ENTER DICE NUMBERT3 

YOUR DICE LOOK LIKE THIS: 

DICE 1 2 RED 

DICE 2 3 GREEN 

DICE 3 2 RED 

DICE 4 6 BLACK 

DICE 5 5 RED 

HOW MANY TO REPLACE? (0 TO ST0P)?3 
ENTER DICE NUMBER?2 
ENTER DICE NUMBER?4 
ENTER DICE NUMBER?5 

YOUR DICE LOOK LIKE THIS: 

DICE 1 2 RED 

DICE 2 6 BLACK- 

DICE 3 2 RED 

DICE 4 2 RED 

DICE 5 1 BLACK 

YOUR DICE TGTAL 13 

ENTER THE LOCATION NUMBER?2 

2 - DEUCES 2 FOR EACH DEUCE 6 

DO YOU WANT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

DICE 1 IS A 1 BLACK 
DICE 2 IS A 5 RED 
DICE 3 IS A 2 RED 
DICE 4 IS A 6 BLACK 
DICE 5 IS A 1 BLACK 

HOW MANY TO REPLACE? (0 TO ST0P>?3 
ENTER DICE NUMBER?2 
ENTER DICE NUMBER?3 
ENTER DICE NUMBER?4 

YOUR DICE LOOK LIKE THIS: 

DICE 1 1 BLACK- 

DICE 2 4 GREEN 

DICE 3 4 GREEN 

DICE 4 5 RED 

DICE 5 1 BLACK 
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(0 TO ST0P>?3 


HOW MANY TO REPLACE? 
ENTER DICE NUMBER?! 
ENTER DICE NUMBER?4 
ENTER DICE NUMBER?5 


YOUR DICE LOOK LIKE THIS* 

DICE 1 3 GREEN 

DICE 2 4 GREEN 

DICE 3 4 GREEN 

DICE 4 1 BLACK 

DICE 5 2 RED 

YOUR DICE TOTAL 14 
ENTER THE LOCATION NUMBER?! 


1 - ACES 


FOR EACH ACE 


DO YOU WANT A TABLE? Cl FOR YES)?! 


PLAYER 1 

1 - ACES 

2 - DEUCES 

3 - TREYS 

4 - FOURS 

5 - FIVES 

6 - SIXES 


1 FOR EACH ACE 

2 FOR EACH DEUCE 

3 FOR EACH TREY 

4 FOR EACH FOUR 

5 FOR EACH FIVE 

6 FOR EACH SIX 


TOTAL BASIC SECTION 


7-2 PAIR 

8 - 3 OF A KIND 

9 - STRAIGHT 

10- FLUSH 

11- FULL HOUSE 

12- FULL HOUSE 

13- 4 OF A KIND 

14- YARBOROUGH 

15- KISMET 


SAME COLOR TOTAL DICE 
TOTAL DICE 
30 POINTS 


SAME COLOR 35 POINTS 

TOTAL DICE + 15 

SAME COLOR TOTAL DICE + 20 

TOTAL DICE + 25 

FREE TURN TOTAL DICE 

5 OF A KIND TOTAL DICE + 50 


TOTAL GAME TOTAL 


1 


1 

6 

0 

0 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

7 


PLAYER 1 'S TURN. 

DICE 1 IS A 5 RED 
DICE 2 IS A 3 GREEN 
DICE 3 IS A 5 RED 
DICE 4 IS A 2 RED 
DICE 5 IS A 3 GREEN 

HOW MANY TO REPLACE? (0 TO ST0P)?1 
ENTER DICE NUMBER?4 

YOUR DICE LOOK LIKE THIS ♦ 

DICE 1 5 RED 

DICE 2 3 GREEN 

DICE 3 5 RED 

DICE 4 3 GREEN 

DICE 5 3 GREEN 

HOW MANY TO REPLACE? <0 TO ST0P)?0 

YOUR DICE TOTAL 19 

ENTER THE LOCATION NUMBER?1 1 
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11” FULL HOUSE 


TOTAL DICE + 15 


34 


DO YOU WANT A TABLE? (1 FOR YES)?0 

PLAYER 1 'S TURN. 

DICE 1 IS A 6 BLACK 
DICE 2 IS A 5 RED 
DICE 3 IS A 2 RED 
DICE 4 IS A 4 GREEN 
DICE 5 IS A 5 RED 

HOW MANY TO REPLACE? (0 TO STOP >^2 
ENTER DICE NUMBER?1 
ENTER DICE NUMB£R?4 

YOUR DICE LOOK LIKE THIS: 

DICE 1 1 BLACK 

DICE 2 5 RED 

DICE 3 2 RED 

DICE 4 6 BLACK 

DICE 5 5 RED 

HOW MANY TO REPLACE? (0 TO STOP)^ 
ENTER DICE NUMBER?1 
ENTER DICE NUMBER?4 
ENTER DICE NUMBER?4 

YOUR DICE LOOK LIKE THIS: 

DICE 1 3 GREEN 

DICE 2 5 RED 

DICE 3 2 RED 

DICE 4 1 BLACK- 

DICE 5 5 RED 

YOUR DICE TOTAL 16 
ENTER THE LOCATION NUMBER?2 
ILLEGAL LOCATION. 

ENTER THE LOCATION NUMBER? 1 
ILLEGAL LOCATION. 

ENTER THE LOCATION NUMBER?.1.4 

14- YARBOROUGH FREE TURN TOTAL DICE 

DO YOU WANT A TABLE? (1 FOR YES)?1 

PLAYER 1 


1 - AC ^S 1 FOR EACH ACE 1 

2 - DEUCES 2 FOR EACH DEUCE 6 

3 - TREYS 3 FOR EACH TREY 0 

4 -• FOURS 4 FOR EACH FOUR 0 

5 - FIVES 5 FOR EACH FIVE 0 

6 - SIXES 6 FOR EACH SIX 0 

TOTAL BASIC SECTION 7 

7 - 2 PAIR SAME COLOR TOTAL DICE 0 

8 - 3 OF A KIND TOTAL DICE 0 

9 - STRAIGHT 30 POINTS 0 

10- FLUSH SAME COLOR 35 POINTS 0 

11- FULL HOUSE TOTAL DICE + 15 34 

12- FULL HOUSE SAME COLOR TOTAL DICE + 20 0 

13- 4 OF A KIND TOTAL DICE + 25 0 
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14- YARBOROUGH FREE TURN TOTAL DICE 
15~ KISMET 5 OF A KIND TOTAL DICE f 50 

TOTAL GAME TOTAL 


PLAYER 1 'S TURN. 

DICE 1 IS A 1 BLACK 
DICE 2 IS A 5 RED 
DICE 3 IS A 3 GREEN 
DICE 4 IS A 2 RED 
DICE 5 IS A 1 BLACK 

HOW MANY TO REPLACE? (0 TO STOP)? 


□□□□□□□□□□ 


Program listing 
KISMET 


100 

DIM 

B(v 

110 

CLS 


120 

PRINT ' 

130 

PRINT ' 

140 

IF 

P9 <: 

150 

PRINT ' 

1G0 

FOR 

I=: 

170 

GOSUB : 

180 

GOTO 7( 

190 

IF 

1=1 

200 

IF 

1=2 

210 

IF 

1=3 

220 

IF 

1=4 

230 

IF 

1=5 

240 

IF 

1=6 

250 

IF 

1=7 

2G0 

IF 

1=8 

270 

IF 

1=9 

280 

IF 

1 = 11 

290 

IF 

1 = 1 

300 

IF 

l=l: 

310 

IF 

I=i: 

320 

IF 

1=1. 

350 

PRINT 

3G0 

FOR 

Q= 

370 

FOR 

: Q= 

380 

IF 

X> 6 

390 

E=1 

: P=i 

400 

FOR 

Q= 

410 

IF 

X= 1 

420 

Q=1 

: IF 

430 

IF 

X= 1 

440 

IF 

E= 1 

450 

E=0 

is p=: 

4G0 

IF 

X ( Q 

470 

IF 

X=7 

480 

IF 

X=1 


t. • , 17) , X t S ) , D 1 5 ) 

"THIS IS THE GAME OF KISMET. " : PRINT 
"HOW MANY WISH TO PLAY" ; : I NPUT PS 
1 THEN 150 ELSE IF PS <4 THEN 1G0 
"NO MORE THAN 3 ALLOWED. " : GOTO 130 
1 TO 3: FOR X-l TO 17 : B Cl , X ) =0 : NEXT X:NEXT I 
1090 
S0 

THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 


12 THEN PRINT 


ACE'S, "1 FOR EACH ACE" ? : RETURN 
DEUCES",, "2 FOR EACH DEUCE" ' : RETURN 
TREYS",, "3 FOR EACH TREY" 5 : RETURN 
FOURS",, "4 FOR EACH FOUR" RETURN 
FIVE", , "5 FOR EACH FI VE" ?: RETURN 
SIX",,"S FOR EACH SIX" ? : RETURN 

2 PAIR"," SAME COLOR", "TOTAL DICE" 5 : RETURN 

3 OF A KIND", "TOTAL DICE" RETURN 
STRAIGHT", , "30 POINTS" ; : RETURN 
- FLUSH"," SAME COLOR", "35 POINTS" ! s RETURN 

11 - FULL HOUSE", , "TOTAL DICE + 15"?: RETURN 

12 - FULL HOUSE"," SAME COLOR" , "TOTAL DICE + 20"; 


4 - 

5 - 
G - 

7 - 

8 - 
9 - 
"10 


3 THEN PRINT "13 - 4 OF A KIND", "TOTAL DICE + 25";:RETURN 

4 THEN PRINT "14 - YARBOROUGH"," FREE TURN", "TOTAL DICE" RETURN 
"15 - KISMET"," 5 OF A KIND"," TOTAL DICE + 50";:RETURN 

1 TO G! X (Q ) =0 : NEXT Q:P=0:E=0 
1 TO 5 : X < D < Q ) > = X C D t Q ) > + 1 : NEXT Q:Q=1 
THEN400 ELSE IF X<X)=0 THEN 330 ELSE P=P+X < X) +X : RETURN 
0: RETURN 

1 TO 6 : P=P+X CQ) + ; Q: NEXT Q 
4 RETURN 
X <> 9 THEN 4G0 

THEN Q=Q+1 5 IF Q=E+5 THEN 450 ELSE 430 
THEN 390 ELSE E=1:Q=2:G0T0 430 
30: RETURN 

!) =5 THEN 470 ELSE Q=Q+l:IF Q=7 THEN 510 ELSE 460 
THEN 700 ELSE IF XO10 THEN 4S0 ELSE P=35: RETURN 
1 THEN P=P+15: RETURN 


RETURN 
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430 IF X=12 THEN P=P+20 : RETURN 
500 IF X=15 THEN P=P+50 : RETURN 

510 IF X=15 THEN 390 ELSE Q=1:IF XO 13 THEN 540 

520 IF X C Q ) > =4 THEN 530 ELSE Q=Q+1 : IF Q=7 THEN 330 ELSE 5/0 

530 P=P+25: RETURN 


540 

550 

560 

570 

5S0 

530 

600 

610 

620 

630 

640 

650 

660 

670 

630 

690 

700 

710 

720 

730 

740 

750 

760 

770 

7S0 

790 

S00 

S10 

S20 


IF X < > 10 THEN 5S0 ELSE Q=1 
IF XCQ)=0 THEN Q=Q+1 : GOTO 550 

IF Q> 3 THEN 390 ELSE IF X C 7-Q) +X CQ) <> 5 THEN 390 
P=35: RETURN 

IF XOS THEN 600 ELSE Q=1 

IF XCQ>>=3 THEN 700 ELSE Q=Q+1:IF Q=7 THEN 390 ELSE 590 
0=1: IF X <> 7 THEN 640 

IF XCQ)>=2 THEN 620 ELSE Q=Q+1 : IF 0=7 THEN 390 ELSE 610 
IF XCQ)=4 THEN 700 ELSE IF XCQ)+XC7-0) <4 THEN 390 
IF X(7-0)=l THEN 390 ELSE 700 

IF X C Q) > =2 THEN 650 ELSE Q=Q+1 : IF 0=7 THEN 390 ELSE 640 
IF X CQ) > 3 .THEN 390 ELSE IF X<>12 THEN 670 
IF XCQ)+XC7-Q) 05 THEN 390 ELSE P=P+20: RETURN 
Y=Q 

0=0+1: IF 0=7 THEN 390 ELSE IF XCQ)>=2 THEN 690 ELSE 6S0 
IF X C Q ) + X < Y > 0 5 THEN 390 ELSE P=P+15 : RETURN 
E=0: RETURN 

PRINT D? : IF D=1 THEN 750 ELSE IF D=6 THEN 750 

IF D=2 THEN 740 ELSE IF D=5 THEN 740 

PRINT "GREEN" : RETURN 

PRINT "RED" : RETURN 

PRINT "BLOCK" : RETURN 

FOR R9=l TO 15: FOR P6=l TO P9 

CLS: PRINT " PLAYER" ? P6 ?"’ S TURN. ":PRINT 

FOR J3=l TO 5:D=INTC6*RNDC0) )+l 

PRINT "DICE "?J3?"IS A"?:GDSUB 710 

DC J3) =D : NEXT J3:K4=0 

PRINT: PRINT "HOW MANY TO REPLACE? C0 TO STOP)"; 

INPUT 0: IF 0=0 THEN 900 


S30 FOR J3=l TO 0: PRINT "ENTER DICE NUMBER"? 

340 INPUT U2:D=INT C6+RNDC0) ) + l 
350 DCU2) =D : NEXT J3:CLS 

360 PRINT "YOUR DICE LOOK LIKE THIS :" SPRINT 
370 FOR J3=l TO 5: PRINT "DICE "?J3?" " ? 

330 D=DCJ3) :GOSUB 710:NEXT J3 

390 K4=K4+1 : IF K4 O 2 THEN S10 

900 D=0 : FOR J3=l TO 5: D=D+D C J3) : NEXT J3 

310 PRINT : PRINT "YOUR DICE TOTAL " ? D 

920 K4=0: FOR X=1 TO 15:P=0:IF B C P6» X ) O 0 THEN 930 ELSE GOSUB 360 
930 K4=K4+P : NEXT X:IF K4O0 THEN 950 

340 IF K4 <2 THEN 310 ELSE PRINT "NO LOCATIONS MUST INSERT A ZERO. 

950 PRINT "ENTER THE LOCATION NUMBER" ?: INPUT A 

960 IF BCP6, A)=0 THEN 930 

970 PRINT "ILLEGAL LOCATION. ": GOTO 950 

930 X=A: GOSUB 360 

990 IF P=0 THEN P=-l:E=0 

1000 IF E=1 THEN 970 ELSE BCP6, 0)=P 

1010 PRINT 

1020 I =A: GOSUB 190: PRINT TAB C 50) ? 

1030 IF P=-l THEN PRINT "ZERO":GOTO 1050 

1040 PRINT P 

1050 GOSUB 1090 

1060 NEXT P6 

1070 NEXT R9 

1030 GOTO 1330 

1090 PRINT: PRINT "DO YOU WANT A TABLE? CY=YES) " ? 

1100 INPUT A*: IF A*="Y" THEN 1110 ELSE RETURN 
1110 FOR P=1 TO P9 
1115 CLS 
1120 PRINT 

1130 PRINT "PLAYER "?P: PRINT 
1140 M=0 


li 
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1150 FOR 1=1 TO 15! GOSUB 190 

1160 IF B(P» I )=— 1 THEN PRINT TABC50) 5 "ZERO" :GOTO 1190 
1170 PRINT TAB (50) *B(P» I) 

1180 M=M+B(P, I) 

1190 IF 10 6 THEN 1290 

1200 IF M <63 THEN 1230 ELSE B=35 

1210 IF M <71 THEN 1230 ELSE B=B+20 

1220 IF M <78 THEN 1230 ELSE B=B+20 

1230 IF B=0 THEN 1270 

1240 PRINT 

1250 PRINT "BONUS POINTS "?TAB<50);B 
1260 M=M+B 

1270 PRINT: PRINT "TOTAL BASIC SECTION" !TAB<50) SM 
1280 PRINT : PRINT "HIT -ENTER- TO CONTINUE. 5 : INPUT W 
1285 CLS 
1290 NEXT I 

1300 PRINT : PRINT "TOTAL GAME TOTAL" 5 TAB (50) ;M 
1305 PRINT "HIT -ENTER- TO CONTINUE. 5 : INPUT W 
1310 PRINT: NEXT P 
1320 RETURN 
1330 END 
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Description 

The object of this game is to throw a pair of dice, adding the totals as 
you go along. There are 1 0 rounds per game. The player with the most 
points after 1 0 rounds wins the game. If at any time in a round when a 
player throws the dice, the total equals the total of the first thrown 
dice in that particular round, then the player loses all the accumulated 
points for that round. The player can stop throwing the dice at any 
time. 

Note 

By looking over the probability table you can see that getting a 7 on 
the first throw of a round is less advantageous than a 2 or 1 2. The 
player can use the table strategically to try and win the game. 


Variable list 

C = Total points for computer in the round 
Cl = Total points for computer in the game 
D = Total of two dice 
D1 = Quantity of die one 
D2 = Quantity of die two 
F = Quantity of dice in first throw 
I = Round number (up to 10) 

P = Total points for player in the round 
PI = Total points for player in the game 
R = Roll number 
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S = Total points for each round 

T = Total number of tries the computer should throw dice for current 
round based upon the first number thrown 
Z = Total number of points the computer should aim for in current 
round based upon first throw 


Notone probability table 

Total of 


dice 

Combinations 

Probability 

% 

2 

1 + 1 

1/36 

2.77 

3 

1 + 2 
2 + 1 

2/36 

5.55 

4 

1 + 3 
3 + 1 

2 + 2 

3/36 

8.33 

5 

1 +4 
4 + 1 
3 + 2 

2 + 3 

4/36 

11.11 

6 

1 +5 
5 + 1 
4 + 2 

2 + 4 

3 + 3 

5/36 

13.88 

7 

1 + 6 
6 + 1 
5 + 2 

2 + 5 

3 + 4 

4 + 3 

6/36 

16.66 

8 

2 + 6 
6 + 2 
5 + 3 

3 + 5 

4 + 4 

5/36 

13.88 

9 

3 + 6 
6 + 3 
5 + 4 

4 + 5 

4/36 

11.11 

10 

4 + 6 
6 + 4 

5 + 5 

3/36 

8.33 

11 

5 + 6 

6 + 5 

2/36 

5.55 

12 

6 + 6 

1/36 

2.77 
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Sample run 


NOTONE 

DO YOU WANT THE INSTRUCTIONS? <1=YES>?1 


THIS IS A GAME OF NOTONE ♦ THE OBJECT OF THE GAME IS 
THROW A PAIR OF DICE, ADDING THE TOTALS AS YOU GO ALONG, 
IF AT ANY TIME WHILE THROWING THE DICE, THE TOTAL 
EQUALS THE TOTAL OF THE FIRST THROWN DICE, THEN YOU LOSE 
ALL THE ACCUMULATED POINTS FOR THAT ROUND, YOU CAN STOP 
THROWING THE DICE ANY TIME YOU WANT, THERE ARE 10 ROUNDS 
PER GAME. ***** GOOD LUCK ***** (I'M PRETTY GOOD!) 

YOU GO FIRST. 


ROUND 1 


YOUR TURN. 


ROLL. 1 IS A 1 AND 2 
( 0 ) STOP OR ( 1 ) R0LL71 
ROLL 2 IS A 5 AND 2 
< 0 ) STOP OR ( DROLL? 1 
ROLL 3 IS A 2 AND 5 

< 0 ) STOP OR ( 1 ) R0LL?1 
ROLL 4 IS A 5 AND 6 

< 0 ) STOP OR ( 1 ) R0LL?1 
ROLL 5 IS A 6 AND 2 

( 0 ) STOP OR ( 1 ) R0LL?1 


ROLL 6 IS A 4 AND 2 
( 0 ) STOP OR ( 1 ) R0LL?1 
ROLL 7 IS A 1 AND 4 
( 0 > STOP OR ( 1 > RQLL?1 
ROLL 8 IS A 4 AND 5 
< 0 ) STOP OR < 1 ) RQLL?1 
ROLL 9 IS A 2 AND 6 
< 0 ) STOP’ OR ( 1 ) R0LL?1 
ROLL 10 IS A 5 AND 4 
< 0 ) STOP’ OR ( 1 )R0LL?1 
ROLL 11 IS A 5 AND 4 
( 0 ) STOP OR < 1 ) R0LL?1 
ROLL 12 IS A 2 AND 3 


( 0 ) STOP OR ( 1 ) R0LL?1 
ROLL 13 IS A 3 AND 3 
(O)STOP OR (1)R0LL?1 
ROLL 14 IS A 6 AND 3 
( 0 > STOP OR ( 1 ) ROLL?0 


YOU RECEIVED 102 POINTS IN THAT ROUND. 


MY TURN. 

ROLL 1 IS A 5 AND 6 

ROLL 2 IS A 4 AND 5 

ROLL 3 IS A 6 AND 2 

ROLL 4 IS A 4 AND 3 

ROLL 5 IS A 3 AND 6 

ROLL 6 IS A 2 AND 1 

ROLL 7 IS A 6 AND 6 

ROLL 8 IS A 5 AND 4 

ROLL 9 IS A 4 AND 5 

ROLL 10 IS A 2 AND 3 

ROLL 11 IS A 3 AND 1 

ROLL 12 IS A 2 AND 6 
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ROLL 13 IS A 4 AND 5 
ROLL 14 IS A 3 AND 2 
ROLL 15 IS A A AND 4 

I RECEIVED 118 POINTS IN THAT ROUND, 


SCORE AT THE END OF ROUND 1 
YOU 102 

COMPUTER 118 


ROUND 2 


YOUR TURN, 


ROLL 1 IS A 3 AND 3 
( 0 > STOP OR ( 1 >R0LL?1 
ROLL 2 IS A 4 AND 5 
< 0 ) STOP OR < 1 ) ROLL? 1 
ROLL 3 IS A 2 AND 2 
< 0 ) STOP OR ( 1 > R0LL71 
ROLL 4 IS A 2 AND 5 
< 0 ) STOP OR < 1 ) R0LL70 

YOU RECEIVED 2A POINTS IN THAT ROUND. 
MY TURN, 

ROLL 1 IS A 1 AND 1 

ROLL 2 IS A 4 AND 1 

ROLL 3 IS A 4 AND 5 

ROLL 4 IS A 5 AND A 

ROLL 5 IS A 4 AND A 

ROLL A IS A 3 AND A 

ROLL 7 IS A 4 AND A 

ROLL 8 IS A 5 AND 5 

ROLL 9 IS A 5 AND 1 

ROLL 10 IS A 1 AND A 

ROLL 11 IS A 6 AND 3 

ROLL 12 IS A 1 AND 4 

ROLL 13 IS A 2 AND 3 

ROLL 14 IS A 4 AND 4 

ROLL 15 IS A 2 AND 5 

I RECEIVED 113 POINTS IN THAT ROUND. 


SCORE AT THE END OF ROUND 2 
YOU 128 

COMPUTER 231 


ROUND 3 

YOUR TURN. 

ROLL 1 IS A 5 AND A 
( 0 ) STOP OR ( 1 ) R0LL71 
ROLL 2 IS A 2 AND 4 
( 0 > STOP OR < 1 > R0LLT1 
ROLL 3 IS A 5 AND 1 
( 0 ) STOP OR < 1 ) R0LL?1 
ROLL 4 IS A 3 AND 4 
< 0 ) STOP OR (1)R0LL?1 
ROLL 5 IS A 3 AND A 
( 0 ) STOP OR (1)R0LL?1 
ROLL A IS A 1 AND 5 
< 0 ) STOP OR ( 1 ) R0LLT1 
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ROLL 7 IS A 1 AND 2 
( 0 ) STOP OR ( 1 ) ROLL?l 
ROLL 8 IS A 3 AND 3 
(O)STOF’ OR < 1 >ROLL?l 
ROLL 9 IS A 6 AND 5 

YOU RECEIVED 0 POINTS IN THAT ROUND* 
MY TURN* 

ROLL 1 IS A 4 AND 2 

ROLL 2 IS A 2 AND 1 

ROLL 3 IS A 3 AND 3 

I RECEIVED 0 POINTS IN THAT ROUND* 


SCORE AT THE END OF ROUND 3 
YOU 128 

COMPUTER 231 


ROUND 4 


YOUR TURN. 

ROLL 1 IS A 1 AND 6 

< 0 ) STOP OR ( 1 ) R0LL71 
ROLL 2 IS A 2 AND 1 

< 0 ) STOP OR ( 1 >RQLL?1 
ROLL 3 IS A 2 AND 3 
< 0 > STOP OR ( 1 )ROLL?l 
ROLL 4 IS A 4 AND 4 

< 0 ) STOP OR ( 1 ) ROLL71 
ROLL 5 IS A 1 AND 5 

< 0 ) STOP OR (1)R0LL?0 

YOU RECEIVED 29 POINTS IN THAT ROUND. 
MY TURN* 


ROLL 

1 

IS 

A 

5 

AND 

4 

ROLL 

2 

IS 

A 

5 

AND 

5 

ROLL 

3 

IS 

A 

2 

AND 

4 

ROLL 

4 

IS 

A 

3 

AND 

1 

ROLL 

5 

IS 

A 

6 

AND 

5 

ROLL 

6 

IS 

A 

5 

AND 

2 

ROLL 

7 

IS 

A 

1 

AND 

6 

ROLL 

8 

IS 

A 

3 

AND 

2 


I RECEIVED 59 POINTS IN THAT ROUND* 


SCORE AT THE END OF ROUND 4 
YOU 157 

COMPUTER 290 


ROUND 5 


YOUR TURN. 

ROLL 1 IS A 1 AND 2 
< 0 ) STOP OR ( 1 )R0LL?1 
ROLL 2 IS A 1 AND 1 
( 0 ) STOP OR < 1 ) R0LL?1 
ROLL 3 IS A 3 AND 1 
( 0 ) STOP OR ( 1 ) R0LL71 
ROLL 4 IS A 6 AND 2 
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< 0 ) STOP OR <l)ROLL?l 
ROLL 5 IS A 2 AND 5 
< 0 ) STOP OR < DROLL? 1 
ROLL 6 IS A 2 AND 5 
( 0 ) STOP OR (l)ROLL?l 
^.ROLL 7 IS A 4 AND 1 
(O)STOP OR < 1 ) ROLL?l 
ROLL 8 IS A 1 AND 3 
< 0 ) STOP OR < DROLL?! 

ROLL 9 IS A 5 AND 2 
(OISTQP OR < D ROLL?l 
ROLL 10 IS A 4 AND A 
< 0 > STOP OR < DROLL?! 

ROLL 11 IS A 4 AND 3 
( 0 > STOP OR < 1 ) R0LL?1 
ROLL 12 IS A 4 AND 4 
( 0 > STOP OR < 1 )R0LL?1 
ROLL 13 IS A 5 AND 2 
( 0 ) STOP OR <1>R0LL?1 
ROLL 14 IS A 2 AND 1 

YOU RECEIVED 0 POINTS IN THAT ROUND. 
MY TURN. 


ROLL 

1 

IS 

A 

4 

AND 

6 

ROLL 

2 

IS 

A 

2 

AND 

3 

ROLL 

3 

IS 

A 

3 

AND 

1 

ROLL 

4 

IS 

A 

3 

AND 

A 

ROLL 

5 

IS 

A 

4 

AND 

1 

ROLL 

6 

IS 

A 

1 

AND 

2 

ROLL 

7 

IS 

A 

1 

AND 

6 

ROLL 

8 

IS 

A 

5 

AND 

A 

ROLL 

9 

IS 

A 

1 

AND 

o 

I RECEIVED 

i 57 

POINTS IN THAT ROUND 


SCORE AT THE END OF ROUND 5 
YOU 157 

COMPUTER 347 


ROUND A 

YOUR TURN. 

ROLL 1 IS A 3 AND 1 
<0>ST0P OR (DROLL? 




Program listing 
NOTONE 


100 REM J. VICTOR NAHIGIAN — 10/05/7E — VERSION 1 
110 CLS: PRINT TAB (30) S "NOTONE" 

120 PRINT 

130 PRINT "DO YOU WANT INSTRUCTIONS? <Y=YES) " ; 

140 INPUT A* 



150 IF fl$="Y" THEN 160 ELSE 240 
160 CLS 

170 PRINT "THIS IS ft GftME OF NOTONE. THE OBJECT OF THE GAME IS" 

180 PRINT "TO THROW A PAIR OF DICE* ADDING THE TOTALS AS YOU GO ALONG." 
190 PRINT "IF AT ANY TIME WHILE THROWING THE DICE, THE TOTAL" 

200 PRINT "EQUALS THE TOTAL OF THE FIRST THROWN DICE, THEN YOU LOSE" 

210 PRINT "ALL THE ACCUMULATED POINTS FOR THAT ROUND. YOU CAN STOP" 

220 PRINT "THROWING THE DICE ANY TIME YOU WANT. THERE ARE 10 ROUNDS" 

230 PRINT "PER GAME. ***** GOOD LUCK ***** (I’M PRETTY GOOD!)" 

240 P1=0:C1=0 
250 P=0:C=0 

2G0 PRINT : PRINT "YOU GO FI RST. " : PRINT 

270 FOR 1=1 TO 10: PRINT 

280 PRINT TAB(15) 5" ROUND" I 

290 PRINT : PRINT "YOUR TURN. PRINT 

300 GOSUB 890:F=D:D=0 

310 S=0 

320 R=0 

330 R=R+1 

340 PRINT "ROLL"R" IS A"D1 " AND"D2 
350 IF D=F THEN 410 
360 S=S+D 1+D2 

370 PRINT " (S) STOP OF ( R) ROLL" INPUT A* 

380 IF A*="S" THEN 420 

390 IF A*="R" THEN 400 ELSE 370 

400 GOSUB 890: GOTO 330 

410 S=0 

420 P=P+S 

430 CLS: PRINT "YOU RECEI VED"S" POINTS IN THAT ROUND." 

440 PRINT: PRINT "MY TURN." 

450 PRINT 
460 GOSUB 890 
470 F=D 
480 S=0 
490 R=0 
500 D=0 

510 T=18/ (3— I NT (ABSCF-7) /2) ) 

520 Z=INTC(C(T*7)/6)-T)*36) 

530 R=R+1 

540 PRINT "ROLL" R" IS A"D1 " AND "D2 

545 FOR X=1T0 250: NEXT X 

550 IF F=D THEN 640 

560 S=S+D1+D2 

570 IF 'I <>10 THEN 600 

580 IF C+S>P THEN 650 

590 GOTO 620 

600 IF R> =T THEN 650 

610 IF S>Z THEN 650 

620 GOSUB 890 

630 GOTO 530 

640 S=0 

650 CLS:PRINT "I RECEI VED"S" POINTS IN THAT ROUND." 

660 C=C+S 

670 PR I NT SPRINT: PR I NT "SCORED AT THE END OF ROUND" I 

680 PRINT "YOU" *TAB( 10) ;P 

690 PRINT "COMPUTER" ?TAB( 10) !C 

700 NEXT I 

710 PRINT 

720 PRINT 

730 IF OP THEN 770 ELSE IF C=P THEN 760 
740 PRINT "YOU WIN ! " : P1=P1+1 
750 GOTO 780 

760 PRINT "IT WAS A TIE!":GOTO 780 
770 PRINT "I WON! ":Cl=Cl+l:GOTO 780 
780 PRINT: PRINT TAB < 10) ? "GAME SCORES" 

790 PRINT 

800 PRINT "YOU" ;TABC10) ;P1 
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810 PRINT "COMPUTER" ;TAB<! 10> 5C1 

820 PRINT: PRINT "ANOTHER GAME? <Y=YES>"; 

830 INPUT A$:IF A*="Y" THEN 250 
840 PRINT 

350 IF P1>C1 THEN S70 ELSE IF Pl-Cl THEN SS0 
3G0 PRINT "I WON THE GAMES BY"C1-P1 :GOTO 920 
870 PRINT "YOU WON THE GAME BY" Pl-Cl : GOTO 920 
880 PRINT "IT WAS A TIE!":GOTO 920 
890 D1 = INT<S* : RNDC0) ) + l 

900 d 2 =int«:e*-rndc 0 ) :>+i 

810 D=D1+D2: RETURN 
920 END 
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Description 

This program creates poems at random. The computer prints a different 
poem every time you run it. A noun-verb-adjective-adverb pattern is 
used in developing the poems. 


Variable list 

C = Group of cards to print (in multiple of fours) 
C = 5, then start new line 
C = 6, then print a semicolon (;) 

C = 18, then poem has ended 
I = Word number to print 


Sample run 

THIS PROGRAM MAKES RANDOM POEMS. 


SUNSHINE REMAINED OPENLY 
GENTLE RAGE SOARED? OUR BLOOD 
STARRY BEAUTY GROWS DOWN THIS 
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HAPPINESS SHRANK SADLY 

RAGE GROWS 

ECSTASY RISES OUR 

RED YOUNG REMAINED SILENTLY 

BESMIRCH DIED 

IN US 

HOT 


AGAIN? ( 1 : =YES ) ?1 


IMAGINARY FALLS WITH US 

WISE ECSTASY FLOWED; HOT LOVE 

RED WONDER PLUNGED SOFTLY SILVER 

BEAUTY MARCHES DOWN 

DEATH SINKS 

RAGE SLEEPS BLESSED 

WISE ITS REMAINED TENDERLY 

WISE FLOWED 

MAGICALLY 

THIS 


AGAIN? ( 1 =YES > ? 1 


LOVE SHONE OPENLY 

STARRY WONDER SOARED; RED BEAUTY 

INNOCENT JOY SHRANK WITH US COOL- 

DEATH SHRANK TO SOON 

WAR FALLS 

HAPPINESS GROWS BLESSED 

THIS YOUNG FLOWED WILDLY 

MASKED FLOWED 

BRIGHTLY 

WISE 


AGAIN? <1=YES)?0 




Program listing 
POEM 


100 PRINT SPRINT" THIS PROGRAM MAKES RANDOM POEMS. PRINT: PRINT 
110 REM NOUN-VERB- ADVERB PATTERN — P. WHITE 
120 READ C 

130 DATA 3,2,0,5,1,3,2,6,1,3,5,1,3,2,0,17 5,3,2,0 
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140 DATA 5, 3, 2, 5, 3, 2, 1, 5, 1, i, 2, 0, 5, 1, 2, 5, 0, 5, 1 

150 DATA IS 

1E0 IF C=1S THEN 260 

170 IF COS THEN 200 

1S0 PRINT 

190 GOTO 120 

200 IF COG THEN 230 

210 PRINT "5"! 

220 GOTO 120 

230 I = < I NT C 20+RND C 0 ) + 1 >*4-C> 

240 PRINT " " ; : :GOSUB 350 

250 GOTO 120 

260 PRINT 

270 PRINT 

2S0 PRINT 

290 PRINT "AGAIN? ( 1=YES) 11 ; 

300 INPUT C 

310 IF C=1 THEN 330 

315 GOTO 340 

320 PRINT 

330 RESTORE: PRINT : PRINT : PRINT : PRINT: PRINT : :GOTO 120 

340 PRINT: PRINT: PRINT: PRINT: : PRINT: STOP 

350 IF I> 1 THEN 360 

355 PRINT"LIFE" RETURN 

360 IF I> 2 THEN 370 

365 PRINT "MARCHES"; : RETURN 

370 IF I > 3 THEN 380 

375 PRINT "MASKED" ;: RETURN 

3S0 IF I > 4 THEN 390 

385 PRINT "GENTLY" ;: RETURN 

390 IF I> 5 THEN 400 

395 PRINT "DEATH" ;: RETURN 

400 IF I > 6 THEN 410 

405 PRINT "SHRANK" ;: RETURN 

410 IF I > 7 THEN 420 

415 PRINT "LOOMING" ;: RETURN 

420 IF I > 8 THEN 430 

425 PRINT "PEACEFULLY" ; -’RETURN 

430 IF 1)9 THEN 440 

435 PRINT "RAGE"; : RETURN 

440 IF I) 10 THEN 450 

445 PRINT "JUMPED" ;: RETURN 

450 IF 1)11 THEN 460 

455 PRINT "SWEET" RETURN 

460 IF I> 12 THEN 470 

465 PRINT "BRIGHTLY"; : RETURN 

470 IF I> 13 THEN 480 

475 PRINT "JOY" ;: RETURN 

480 IF I> 14 THEN 490 

485 PRINT "LAY" ;: RETURN 

490 IF I> 15 THEN 500 

495 PRINT "BESMIRCH"; : RETURN 

500 IF I> 16 THEN 510 

505 PRINT "OPENLY" ;: RETURN 

510 IF I> 17 THEN 520 

515 PRINT "FEAR" ; .‘RETURN 

520 IF 1)18 THEN 530 

525 PRINT "RISES"; : RETURN 

530 IF I> 19 THEN 540 

535 PRINT "BLESSED"; : RETURN 

540 IF I >20 THEN 550 

545 PRINT "DOWN" ;: RETURN 

550 IF I >21 THEN 560 

555 PRINT "JOY" ;: RETURN 

560 IF I >22 THEN 570 

565 PRINT "BURNS" ;: RETURN 

570 IF I >23 THEN 5S0 
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575 PRINT "HOT" RETURN 

5S0 IF I >24 THEN 590 

5S5 PRINT “FOR US" RETURN 

590 IF I >25 THEN 600 

595 PRINT ''ECSTASY"; : RETURN 

600 IF I> 26 THEN 610 

605 PRINT "DIED"; : RETURN 

610 IF I >27 THEN 620 

615 PRINT "RED" ;: RETURN 

620 IF I >28 THEN 630 

625 PRINT "SADLY"; : RETURN 

630 IF I >29 THEN 640 

635 PRINT "IMAGINARY" ;: RETURN 

640 IF I >30 THEN 650 

645 PRINT "SHONE" ;: RETURN 

650 IF 1)31 THEN 660 

655 PRINT "OUR" RETURN 

660 IF I >32 THEN 670 

665 PRINT "IN US";: RETURN 

670 IF I> 33 THEN 680 

675 PRINT "LOVE" RETURN 

680 IF I >34 THEN 690 

685 PRINT "SLEEPS" ;: RETURN 

690 IF I >35 THEN 700 

695 PRINT "GENTLE" ;: RETURN 

700 IF I >36 THEN 710 

705 PRINT "TENDERLY"; : RETURN 

710 IF I> 37 THEN 720 

715 PRINT "HATRED" ;: RETURN 

720 IF I >38 THEN 730 

725 PRINT "SINKS" ;: RETURN 

730 IF I >39 THEN 740 

735 PRINT "COOL" ;: RETURN 

740 IF I >40 THEN 750 

745 PRINT "SLOWLY" ;: RETURN 

750 IF I> 41 THEN 760 

755 PRINT "BLOOD"; : RETURN 

760 IF I >42 THEN 770 

765 PRINT "REMAINED" ;: RETURN 

770 IF I >43 THEN 780 

775 PRINT "CAPTIVE" ;: RETURN 

780 IF I >44 THEN 790 

785 PRINT "WILDLY" ; :RETURN 

790 IF I >45 THEN S00 

795 PRINT "HAPPINESS" ;: RETURN 

S00 IF I> 46 THEN 8i0 

805 PRINT "FLOWED" ;: RETURN 

S10 IF I> 47 THEN 820 

815 PRINT "NEW" ; :RETURN 

820 IF I>48 THEN 830 

825 PRINT "SOFTLY" RETURN 

830 IF I >49 THEN 840 

835 PRINT "NIGHT" ;: RETURN 

840 IF I >50 THEN 850 

845 PRINT "SWELLED";: RETURN 

850 IF I> 51 THEN 860 

855 PRINT "YOUNG" ;: RETURN 

860 IF I >52 THEN 870 

865 PRINT "SILENTLY"; : RETURN 

870 IF I >53 THEN 880 

875 PRINT "SUNSHINE"; : RETURN 

880 IF I >54 THEN 890 

885 PRINT "RUNS"; : RETURN 

890 IF I >55 THEN 900 

895 PRINT "INNOCENT"; : RETURN 

900 1=1+4 



910 IF I > 60 THEN 920 

915 PRINT "MAGICALLY" RETURN 

920 IF I >61 THEN 930 

925 PRINT “PEACE" ;: RETURN 

930 IF I >62 THEN 940 

935 PRINT "GROWS" RETURN 

940 IF I >63 THEN 950 

945 PRINT "WISE" ?: RETURN 

950 IF I >64 THEN 9E0 

955 PRINT "AGAIN" RETURN 

960 IF I >65 THEN 970 

965 PRINT "BEAUTY" RETURN 

970 IF I >66 THEN 980 

975 PRINT "SOARED"; : RETURN 

980 IF I >67 THEN 990 

985 PRINT "STARRY" RETURN 

990 IF I >68 THEN 1000 

995 PRINT "BRIEFLY"; : RETURN 

1000 IF I> 69 THEN 1010 

1005 PRINT "WAR" ; :RETURN 

1010 IF I > 70 THEN 1020 

1015 PRINT "FALLS" ;: RETURN 

1020 IF I >71 THEN 1030 

1025 PRINT "SILVER"; : RETURN 

1030 IF I >72 THEN 1040 

1035 PRINT "FOREVER"; : RETURN 

1040 IF I >73 THEN 1050 

1045 PRINT "MOONLIGHT" ;: RETURN 

1050 IF I >74 THEN 1060 

1055 PRINT "PLUNGED" RETURN 

1060 IF I >75 THEN 1070 

1065 PRINT "DIZZYING"; : RETURN 

1070 IF I> 76 THEN 1080 

1075 PRINT "WITH US";: RETURN 

1080 IF I> 77 THEN 1090 

1085 PRINT "WONDER"; : RETURN 

1090 IF I >78 THEN 1100 

1095 PRINT "ENDED" RETURN 

1100 IF I> 79 THEN 1110 

1105 PRINT "THIS" ; .'RETURN 

1110 IF I> 80 THEN 1120 

1115 PRINT "TOO SOON"; : RETURN 

1120 IF I>S1 THEN 1130 

1125 PRINT "FIRE" ;: RETURN 

1130 IF I > 82 THEN 1140 

1135 PRINT "COMES" ;: RETURN 

1140 IF I > S3 THEN 1150 

1145 PRINT "ITS" ;: RETURN 

1150 PRINT "VIVIDLY"; : RETURN 

1160 END 
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Description 

In this game, you and the computer play draw poker against each other. 
You both have $100.00 to start the game. The cards are shuffled and 
your hand and the computer’s hand are dealt. The computer deals you 
5 cards, all face down. Upon completion of the deal the betting begins. 
You open with your first bid, betting according to what you have to 
start with in your hand. The computer and you both may discard 1 or 
more cards (but not more than 4) and receive new cards from the un- 
dealt portion of the card pack. This is the draw. You may stand pat 
and draw no cards if you wish. 

After the draw there is another betting round, followed either by 
you or the computer calling for the other to show his hand. 


Rank of cards 

A (high), K, Q, J, 1 0, 9, 8, 7, 6, 5, 4, 3, 2, A (low). The Ace is low only 
in the sequence 5-4-3-2-A. 


Rank of hands 


1 . Royal flush — an ace-high straight flush. 

2. Straight flush— 5 cards in the same suit, ranking consecutively. 

3. Four of a kind— 4 cards of the same rank. 
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4. Full house— 3 cards of one rank and 2 cards of another rank. 

5. Flush — 5 cards of the same suit. 

6. Straight— 5 cards in 2 or more suits, ranking consecutively. 

7. Three of a kind— 3 cards of the same rank. 

8. Two pairs— 2 cards of one rank and 2 cards of another rank, 
with an unmatched fifth card. 

9. One pair — 2 cards of the same rank, with 3 unmatched cards. 

10. No pair— loses to hand above it. 


Draw poker probability table 


Hand 

Number of 
combinations 

Odds (hands) 

Royal flush 

4 

1 in 649,740 

Straight flush 

36 

1 in 72,193 

Four of a kind 

624 

1 in 

4,165 

Full house 

3,744 

1 in 

694 

Flush 

5,108 

1 in 

509 

Straight 

1 0,200 

1 in 

255 

Three of a kind 

54,912 

1 in 

47 

Two pairs 

123,552 

1 in 

21 

One pair 

1,098,240 

1 in 

2 


Variable list 

A9 = Total amount in pool 
B = Amount of money bid by player 
B1 = Amount of money bid by computer 
B9 = Dollar limit for computer before it decides to “go out” 
C = Type of card 
Cl = Rank of computer’s hand 
C2 = Computer’s high card 

C( ) = Type of card held by computer (by card number) 

Cl ( ) = Suit of card held by computer (by card number) 

C9( ) = Number of cards in hand of a particular suit 
H8 = Number of cards computer will replace 
H9 = High card in current hand 
K9 = Number of cards player replaced 
M( ) = Type of card held by player (by card number) 

M 1 ( ) = Suit of card held by player (by card number) 

PI = Rank of player’s hand 
P2 = Player’s high card 
P9 = Amount of money owned by player 
S = Suit of card 


104 


S( ) = Cards picked from deck 
T = Rank of current hand 
T9 = Card number picked by player to replace 
T( ) = Number of cards in hand of a particular kind 


Sample run 

POKER GAME. 

ON BETTING t BET A ZERO TO CALL t 
A NEGATIVE NUMBER TO GO OUT! 


CARDS ARE RESHUFFLED. 

ANTE OF * 5.00 
YOU HAVE * 100 


HERE IS YOUR HAND ♦ 

CARD 1 IS A 9 OF CLUBS 

CARD 2 IS A 2 OF HEARTS 

CARD 3 IS A 7 OF CLUBS 

CARD 4 IS A ACE OF HEARTS 

CARD 5 IS A JACK OF CLUBS 

I'LL PICK MY HAND. 

OPEN WITH A BET? 10 
I'LL ACCEPT. 


HOW MANY CARDS TO REPLACET3 
CARD NUMBERY1 
CARD NUMBERT2 
CARD NUMBER73 

HERE IS YOUR HAND » 

CARD 1 IS A 9 OF HEARTS 
CARD 2 IS A 5 OF DIAMONDS 
CARD 3 IS A KING OF SPADES 
CARD 4 IS A ACE OF HEARTS 
CARD 5 IS A JACK OF CLUBS 

I'LL TAKE 3 CARDS. 

HOW MUCH DO YOU BET?5 

I RAISE $ 3 

HOW MUCH DO YOU BET?0 


I HAD ONE PAIR 

WITH A HIGH CARD OF 8 ♦ 


YOU HAD NOTHING 

WITH A HIGH CARD OF ACE 



I WON $ 23 


AGAIN? ( 1=YES ) ?1 

CARDS ARE RESHUFFLED » 

ANTE OF * 5,00 
YOU HAVE $ 77 


HERE IS YOUR HAND ♦ 

CARD 1 IS A ACE OF SPADES 

CARD 2 IS A 9 OF HEARTS 

CARD 3 IS A JACK OF CLUBS 
CARD 4 IS A 3 OF DIAMONDS 

CARD 5 IS A 3 OF HEARTS 

I'LL PICK MY HAND, 


OPEN WITH A BET?5 
I'LL ACCEPT, 


HOW MANY CARDS TO REPLACE73 
CARD NUMBERT1 
CARD NUMBER72 
CARD NUMBER73 

HERE IS YOUR HAND: 


CARD 1 IS A 3 
CARD 2 IS A 5 
CARD 3 IS A 9 
CARD 4 IS A 3 
CARD 5 IS A 3 


OF 

OF 

OF 

OF 

OF 


CLUBS 

DIAMONDS 

CLUBS 

DIAMONDS 

HEARTS 


I'LL TAKE 3 CARDS. 


HOW MUCH DO YOU BET710 


I RAISE $ 18 

HOW MUCH DO YOU BET75 

I RAISE % 12 

HOW MUCH DO YOU BET710 

I RAISE $ 5 

HOW MUCH DO YOU BET710 

I RAISE $ 9 

HOW MUCH DO YOU BET75 


I RAISE % 4 

HOW MUCH DO YOU BET710 
I CALL! 


I HAD NOTHING 

WITH A HIGH CARD OF QUEEN. 


YOU HAD THREE OF A KIND 
WITH A HIGH CARD OF 3 . 

YOU WON $ 108 
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AGAIN? ( 1 =YES ) ?0 


YOU LEFT WINNING $ 185 
READY ♦ 


aaQaaaaaQQi 


Program listing 


100 DIM TU3>,C9<4),SC4,13),M<5),Mi<5>,C<5>,Cir5> 

110 CLS : PRINT “POKER GAME. ": P9=l 00: PRINT 
120 PRINT "ON BETTING, BET A ZERO TO CALL, " 

130 PRINT “A NEGATIVE NUMBER TO GO OUT!" SPRINT 

140 FOR X=1 TO 4: FOR 1 = 1 TO 13 : SC X, I > =0: NEXT IsNEXT XsPRINT 

150 PRINT "CARDS ARE RESHUFFLED. " 

1G0 A9=5: PRINT: PRINT "ANTE OF $5. 00" SPRINT "YOU HAVE $";P9: PRINT 
165 PRINTsPRINT "HIT -ENTER- TO BEGIN. J s INPUT ZfsCLS 
170 FDR X=1 TO 5 : GOSUB 920 :M< X) =C : Ml CX) =S s NEXT X s 90SUB 1040 
1S0 PRINTsPRINT "I’LL PICK MY HAND. "SPRINT 
190 FOR X=1 TO 5: GOSUB 920:CCXi=C:Cl CX)=S:NEXT \ 

200 GOSUB 10S0: C1=T : C2=H9: Pl=-5 

'^10 PRINT "OPEN WITH A BET" ! s INPUT BsIF B<0 THEN 210 ELSE IF RNDC0M.2 THEN 230 
220 IF INT CC CT+RNDC0) ) + l) + ( CH9+RNDC0) > + l !) + CT*10) ) <B-('B/10) THEN 440 
230 A9=A9+B: PRINT "I’LL ACCEPT. PRINT 

240 PRINTsPRINT "HOW MANY CARDS TO REPLACE" ; : INPUT KSsIF K9=0 THEN 290 
250 FOR X=1 TO K9 

260 PRINT "CARD NUMBER" INPUT TSsGOSUB 920 

270 IF T9 <6 THEN 2S0 ELSE PRINT "ENTER CARD NUMBER FROM 1 TO 5. "sGOTO 260 
2S0 M<T9) =C : Ml CT9) =S : NEXT X: GOSUB 1040 

290 GOSUB 1070s FOR X=1 TO 5: T<MC X) > =T<M C X) ) + 1 :C9CM1 C X ) ') =C9(M1 ( X) ) + l 
300 NEXT X: GOSUB 640 : P1=T : GOSUB S00:P2=H9 
310 PRINT : GOSUB 10S0:H9=0:IF T>3 THEN 350 

320 FOR Z=1 TO 5: IF H9=3 THEN 340 ELSE IF TCC(Z))<>1 THEN 340 ELSE H9=H9+1 
330 GOSUB 920 : C < Z ) =C : C 1 C Z ) =S 
340 NEXT Z 

350 PRINT "I’LL TAKE" ;H9; "CARDS. " :HS=H9 
360 GOSUB 10S0:C1=T sGOSUB 300:C2=H9 

370 B9=INT < <C1*RND<0> ) + CC2+RND (0) )+(Cl*10) ) + INT < A9/3) + < (K9-H8) *2') +7 

3S0 B1=0: PRINT: IF RNDC0) <C1*. 5 THEN 390 ELSE B9=99 99 

390 PRINT "HOW MUCH DO YOU BET";: INPUT B 

400 PRINT: IF B<0 THEN 570 ELSE A9=A9+B1 

410 IF B=0 THEN GOSUB 480 

415 GOTO 540 

420 IF A9+B <B9 THEN 460 ELSE IF A9+B <B9+ CB9/21 THEN 450 
430 IF B9=99. 39 THEN 450 
440 PRINT "I’M OUT! "sGOSUB 4S0 sGOTO 5S0 
450 PRINT "I CALL! ":A9=A9+B sGOSUB 4S0 sGOTO 540 
460 B1 = INT< C CB9-A9) /3)*RNDC0) )+2: A9=A9+B 
470 PRINT "I RAISE $" 'Bl sGOTO 390 
4S0 PRINTsPRINT "I HAD " ; : T=C 1 : GOSUB 820 
490 PRINT "WITH A HIGH CARD OF " ; s C=C2: GOSUB 
500 IF PI =-5 THEN 530 
510 PRINT "YOU HAD T=P1 : GOSUB 820 
520 PRINT "WITH A HIGH CARD OF C=P2s GOSUB 
530 PRINT: RETURN 

540 IF C1=P1 THEN 550 ELSE IF Cl <P1 THEN 580 
550 IF C2=P2 THEN 560 ELSE IF C2<P2 THEN 580 
560 PRINT "IT WAS A TIE !!!": GOTO 590 
570 PRINT "I WON $" ; AS : P9=P9-A9 : GOTO 590 
580 PRINT "YOU WON $" ; A3s P3=P3+A9 


940: PRINT". "SPRINT 

940: PRINT "."SPRINT 

ELSE 570 
ELSE 570 
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530 PRINT: PRINT "AGAIN? CY=YES) " 5 : INPUT B$:IF B$="Y" THEN 140 
G00 PRINT: IF P9<0 THEN 630 

610 IF P9> =100 THEN 620 ELSE PRINT "YOU LEFT LOSING *" ; 100-P9: GOTO 1100 

620 PRINT "YOU LEFT WINNING $";P9:G0T0 1100 

630 PRINT "YOU OWE ME $";-P3:G0T0 1100 

640 T=0:FOR 1 = 1 TO 4: IF 09(1)05 THEN 650 ELSE T=5 

650 NEXT 1:1=2: H9=0 

660 1 = 1-1 : IF IO0 THEN 670 ELSE 1 = 13 

670 IF TCIXl THEN 660 ELSE H9=1:IF I <> 1 THEN 6S0 ELSE 1 = 14 
6S0 Z=I-4 

690 1 = 1-1 : IF T(I)01 THEN 720 
700 IF ZOl THEN 690 

710 T=T+4 : IF ZO10 THEN 720 ELSE IF T=4 THEN 170 ELSE T=T+1 

720 IF 1=13 THEN 660 ELSE IF T<>5 THEN 730 ELSE IF T < 1 ) < > 1 THEN 730 ELSE H3=l 

730 IF T=0 THEN 740 ELSE RETURN 

740 FOR 1=1 TO 13: IF T(I)<>4 THEN 750 ELSE T=7 

750 IF TCI) 03 THEN 760 ELSE T=T+5:H9=I 

760 IF TCI) 02 THEN 790 ELSE IF T=5 THEN 760 ELSE IF TO0 THEN 770 ELSE H9=0 
770 IF H3=l THEN 760 ELSE IF H9> I THEN 760 ELSE H9=I 
760 T=T+1 

790 NEXT I : IF TO 5 THEN 610 ELSE T=3: RETURN 
600 IF H9<>1 THEN 610 ELSE H9=14 
610 RETURN 

820 IF T=0 THEN PRINT "NOTHING" : RETURN 

830 IF T=1 THEN PRINT "ONE PAI R" : RETURN 

640 IF T=2 THEN PRINT "TWO PAIR": RETURN 

650 IF T=3 THEN PRINT "THREE OF A KIND": RETURN 

660 IF T=4 THEN PRINT "STRAIGHT" : RETURN 

670 IF T=5 THEN PRINT "FLUSH" : RETURN 

660 IF T=6 THEN PRINT "FULL HOUSE" : RETURN 

690 IF T=7 THEN PRINT "FOUR OF A KIND": RETURN 

900 IF 7=3 THEN PRINT "STRAIGHT FLUSH" : RETURN 

910 PRINT "ROYAL FLUSH i !": RETURN 

920 S=INTC4+RNDC0> )+l :C=INTC13+RNDC0) ) + l 

930 IF SCS,C)=1 THEN 920 ELSE SCS, 0 = 1 : RETURN 

340 IF C=1 THEN PRINT " ACE" ;: RETURN 

350 IF 0=11 THEN PRINT "JACK" ; : RETURN 

960 IF 0=12 THEN PRINT "QUEEN" 5 : RETURN 

970 IF 0=13 THEN PRINT "KING RETURN 

960 IF 0=14 THEN PRINT "ACE" ;: RETURN 

990 PRINT C;: RETURN 

1000 IF S=1 THEN PRINT " OF HEARTS" : RETURN 

1010 IF S=2 THEN PRINT " OF SPADES" : RETURN 

1020 IF S=3 THEN PRINT " OF DIAMONDS" : RETURN 

1030 PRINT " OF CLUBS" :RETURN 

1040 CLS : PRINT "HERE IS YOUR HAND: " : PRINXFOR X=1 TO 5 

1050 C=M C X) : S=M1 C X) : PRINT "CARD" ; X ; " IS A " 5 : GOSUB 940:GOSUB 1000 

1060 NEXT X: RETURN 

1070 FOR X=i TO 4:C9CX)=0:NEXT X:FOR X=1 TO 13 : TC X ) =0 : NEXT X : RETURN 
1060 GOSUB 1070: FOR X=i TO 5: T CC C X) ) =T CC C X) ) +1 
1090 C3 C C 1 C X ) ) =C9 CC1 C X ) ) + 1 : NEXT X:GOSUB 640: RETURN 
1100 END 
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Description 

In this psychological game you take 5 tests. In each test the computer 
will draw a design. You are to take that design and draw a picture using 
the design in your picture. After you have drawn your picture, you 
will answer a question about what you drew. After the 5 patterns have 
been drawn, the computer will make a psychoanalysis of your per- 
sonality. 

The computer uses the technique commonly known in psychology 
as projective analysis. This testing technique is one method for describ- 
ing inner personality characteristics such as levels of anxiety, tension, 
creativity, and self-confidence. The results of the test are based on pre- 
determined constructs (statements) that were created through experi- 
mental testing of large samples of personalities. 

Note 

You should draw the picture before reading the question because the 
question may influence what you draw. In the enclosed sample run, an- 
swers were not entered so that your responses might not be influenced. 


Variable list 

A = Answer to Test # 1 
B = Answer to Test #2 
C = Answer to Test #3 
D = Answer to Test #4 
E = Answer to Test #5 
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Sample run 


THIS IS A PSYCHOLOGY TEST ♦ 

THERE ARE FIVE SHORT TESTS. EACH TEST WILL BE SOME 
DESIGN. YOU ARE TO MAKE A PICTURE OUT OF THE DESIGN. 
AFTER YOU DRAW THE PICTURE r YOU WILL ANSWER A QUESTION 
ON WHAT YOU DREW. AFTER THE FIVE TESTS ARE OVER, 

THE COMPUTER WILL MAKE AN ANALYSIS OF YOU. 


TEST *1 


X 

XXX 

XXX 

X 


THE DOT IN THE MIDDLE OF THE TEST BLOCK 
REPRESENTS IN YOUR PICTURE... 

(1) THE CENTRAL SUBJECT. 

< 2 ) THE RIGHT OR LEFT OF THE SUBJECT. 
?0 

TEST #2 


X X 

X X 



X 

X 

X 


X 

X 

X 


X X 

X X 


no 



IN YOUR PICTURE ARE THE FOUR CORNER LINES CONNECTED? 
TYPE A 1 FOR YES , OR A 0 FOR N0?0 

TEST *3 


IN YOUR PICTURE DOES THE DESIGN REPRESENT STAIRS? 
TYPE A 1 FOR YES, OR A 0 FOR N0?0 


TEST *4 



THE SUBJECT OF YOUR PICTURE IS... 

(1) AN ANIMAL OR PERSON <2> SOMETHING MECHANICAL 

TO 

TEST *5 


HOW MANY TIMES IN YOUR PICTURE DID YOU DRAW A LINE WHICH 
CROSSED BOTH PARALLEL LINESTO 




Program listing 


PSYCHO 


130 

110 

120 

130 

140 

150 

1E0 

170 

175 

1S0 

130 

200 

210 

230 

240 

250 

260 

270 

2S0 


PRINT '‘THIS IS A PSYCHOLOGY TEST. ":PRINT 

PRINT "THERE A RE FIVE SHORT TESTS. EACH TEST WILL BE SOME" 

PRINT "DESIGN. YOU ARE TO MAKE A PICTURE OUT OF THE DESIGN. " 
PRINT "AFTER YOU DRAW THE PICTURE, YOU WILL ANSWER A QUESTION" 
PRINT "ON WHAT YOU DREW. AFTER THE FIVE TESTS ARE OVER, " 

PRINT "THE COMPUTER WILL MAKE AN ANALYSIS OF YOU. " : PRINT : PRINT 
PRINT "HIT -ENTER- TO BEGIN. INPUT 1 % 

CLS 

PRINT "TEST #1 " i PRINT 

PRINT TABC 15) "X" : PRINT TAB! 14) "XXX" : PRINT TAB C 14) " XXX ' 

PRINT TAB C 15) "X" s PRINT : PRINT : PRINT 
PRINT " 

PRINT: PRINT “THE DOT IN THE MIDDLE OF THE TEST BLOCK" 

PRINT "REPRESENTS IN YOUR PICTURE... 

PRINT "Cl) THE CENTRAL SUBJECT" 

PRINT " C2) THE RIGHT OR LEFT OF THE SUBJECT" 

INPUT A: CLS : PRINT "TEST #2": PRINT 

PR I NT " :+: * +: :+: * : + : * * :+: +; ■ +: :+: + * * :+: * * 1 * : :+: * :+: * :+: ^ :+: :+: :+: * ' ' 
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290 PRINT TABCSVX" ;TAB<35) "X" 

300 PRINT TABC4) "X" ;TAB<36) "X" 

310 PRINT TAB<3) "X" ;TAB<37) "X" 

320 PRINT TABC2) "X" ;TAB<38) "X" 

340 PRINT: PRINT 

360 PRINT TABC2) "X" ;TAB<3S) "X" 

370 PRINT TABC3) "X" ;TABC37) "X" 

380 PRINT TAB<4)"X" STAB<36) "X" 

390 PRINT TABC5) "X" ’TABC35) "X" 

400 PRINT " ***+:#*+: *:>»:*+!+: 4= 4: 11 

410 PRINT 

420 PRINT "IN YOUR PICTURE ARE THE FOUR CORNERS CONNECTED?" 

430 PRINT "Y OR N" ; : INPUT B$:IF B*="Y" THEN B=1 ELSE B=0 
440 CLS: PRINT "TEST #3" 

450 PRINT 

460 FOR 1=1 TO 2: PRINT TAB C45) 5 " ’ " : NEXT I 

470 PRINT TABC37);" " 

430 FOR 1=1 TO 2: PRINT TAB (37) ; " ’ " : NEXT I 

490 PRINT TABC29);" " 

500 FOR 1=1 TO 2: PRINT TAB (29) NEXT I 
510 PRINT TAB (22) » " " 

520 FOR 1=1 TO 2: PRINT TABC21 ) » "’ " :NEXT I: PRINT 

540 PRINT "IN YOUR PICTURE DOES THE DESIGN REPRESENT STAIRS'?" 

550 PRINT "Y OR N" ; : INPUT C*:IF C$="Y" THEN C=1 ELSE C=0 

560 CLS: PRINT "TEST #4": PRINT 

580 FOR 1=1 TO 5: PRINT TAB C45) ; " ,M : NEXT I 

590 PRINT TABC37) ; " " 

600 FOR 1=1 TO 5 : PRINT TAB (37) ; " ’ " :NEXT I: PRINT 
620 PRINT "THE SUBJECT OF YOUR PICTURE IS..." 

630 PRINT "CD AN ANIMAL OR PERSON "TAB (35) " C2) SOMETHING MECHANICAL"; 
640 INPUT D: CLS: PRINT "TEST #5" 

650 PRINT 

660 FOR 1 = 1 TO 10: PRINT TAB(15);"’ ’ " : NEXT I 

670 PRINT 

680 PRINT "HOW MANY TIMES IN YOUR PICTURE DID YOU DRAW A LINE WHICH" 
690 PRINT "CROSSED BOTH PARALLEL LINES" INPUT E:CLS 
700 PRINT "TESTS COMPLETE. " 

710 FOR 1=1 TO 500: NEXT isCLSsPRINT TAB C20) ? "PSYCHO ANALYSIS" : PRINT 
720 IF A=1 THEN 750 

730 PRINT "YOU ARE NOT SELF-CENTERED, AND HAVE A " 

740 PRINT "GOOD SENSE OF DESIGN. " :GOTO 760 

750 PRINT "YOU ARE SELF-CENTERED, AND HAVE SELFISH TENDENCIES. " 

760 IF B=0 THEN 790 

770 PRINT "YOU ENJOY PEOPLE’S COMPANY, AND ARE SOCIAL-MINDED." 

780 GOTO 320 

790 PRINT "YOU PREFER TO BE ALONE AT TIMES, AND ARE NOT A PARTY TYPE. " 
820 IF C=1 THEN 860 

830 PRINT "YOU ARE A NON-CONFORMIST, AND ENJOY DOING THINGS" 

840 PRINT "BECAUSE YOU LIKE THEM, NOT BECAUSE YOU ARE" 

850 PRINT "INFLUENCED BY OTHERS. ": GOTO 870 

860 PRINT "YOU ARE A CONFORMIST, AND YOU FOLLOW THE CROWD. " 

870 PRINT 

830 IF D=2 THEN 910 

890 PRINT "YOU ARE NOT MECHANICAL-MINDED, BUT YOU ARE" 

900 PRINT "CONCERNED FOR OTHER LIVING THINGS. GOTO 930 
910 PRINT "YOU ARE MECHANICAL MINDED, AND ENJOY WORKING" 

920 PRINT "WITH INANIMATE OBJECTS. " 

930 PRINT 

940 IF E <=3 THEN 970 ELSE IF E<=6 THEN 1000 ELSE IF E<=10 THEN 1030 
950 PRINT "WOW!! YOUR SEX DRIVE IS VERY, VERY, STRONG!! 1 ! 1 " 

960 PRINT "THEY’D BETTER KEEP YOU IN A CAGE’":GOTG 1050 
970 PRINT "YOU HAVE A VERY WEAK SEX DRIVE, AMD YOU PROBABLY" 

980 PRINT "DON’T ENJOY THE COMPANY OF MEMBERS OF THE OPPOSITE SEX." 

990 GOTO 1050 

1000 PRINT "YOUR SEX DRIVE IS MEDIUM LOW. YOU DON’T" 

1010 PRINT "MIND BEING WITH MEMBERS OF THE OPPOSITE SEX, " 
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1020 PRINT "BUT YOU DON’T PREFER IT EITHER. GOTO 1050 
1030 PRINT "YOU HAVE A MEDIUM HIGH SEX DRIVE, AND YOU" 

1040 PRINT "ENJOY BEING WITH MEMBERS OF THE OPPOSITE SEX. " 
1050 PRINT 

10E0 PRINT "THIS IS THE END OF YOUR PSYCHO-ANALYSIS. " 

1070 END 
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Description 

A different type of dice game is simulated in this program. The object 
of the game is to knock off the following numbers: 1 2345678 9. 
This is done by rolling a pair of dice and totaling them. You then take 
that total and knock off as many numbers as you can until your total 
reaches zero. You then throw the dice again. If you knock off all the 
numbers exactly, then you win. If you roll a number that has been al- 
ready knocked off, you automatically lose! 


Variable list 

A( ) = Flag to see if number has been picked 

A( ) = 0 Then number hasn’t been picked 
A( ) = 1 Then number has been picked 

C = Number of locations left to knock off 
E = Error flag to determine if any moves are left 
I = Roll number 
L = Number to knock off 
W = Games won 
W1 - Games lost 


Sample run 

THIS IS THE GAME OF ROLL ON. 

DO YOU WANT THE INSTRUCTIONS? (1 FOR YES)?1 
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THE OBJECT OF THE GAME IS TO KNOCK OF THE FOLLOWING NUMBERS 


123456 7 89 

THIS IS DONE BY ROLLING A PAIR OF DICE AND ADDING THE 
TOTALS. YOU THEN TAKE THAT TOTAL AND KNOCK OFF AS MANY 
NUMBERS AS YOU CAN UNTIL YOUR TOTAL REACHES ZERO. 

YOU THEN THROW THE DICE AGAIN. IF YOU KNOCK OFF 
ALL THE NUMBERS THEN YOU WIN. IF YOU DON'T KNOCK OFF 
ALL THE NUMBERS EXACTLY t THEN YOU LOSE! 


HERE 

IS ROLL 1 



YOUR 

ROLL TOTALS 6 



HERE 

is the board: 

1 2 

3 4 5 6 

WHAT 

NUMBER DO YOU 

WANT 

TO KNOCK 0FF?5 

YOUR 

ROLL TOTALS 1 



HERE 

is the board: 

1 2 

3 4 6 7: 

WHAT 

NUMBER DO YOU 

WANT 

TO KNOCK QFF?1 

HERE 

IS ROLL 2 



YOUR 

ROLL TOTALS 7 



HERE 

is the board: 

2 3 

4 6 7 8 

WHAT 

NUMBER DO YOU 

WANT 

TO KNOCK 0FF?4 

YOUR 

ROLL TOTALS 3 



HERE 

IS THE board: 

2 3 

6 7 8 9 

WHAT 

NUMBER DO YOU 

WANT 

TO KNOCK 0FF?3 

HERE 

IS ROLL 3 



YOUR 

ROLL TOTALS 8 



HERE 

IS the board: 

2 6 

7 8 9 

WHAT 

NUMBER DO YOU 

WANT 

TO KNOCK 0FF?6 

YOUR 

ROLL TOTALS 2 



HERE 

IS the board: 

2 7 

8 9 

WHAT 

NUMBER DO YOU 

WANT 

TO KNOCK 0FF?2 

HERE 

IS ROLL 4 



YOUR 

ROLL TOTALS 3 



HERE 

is the board: 

7 8 

9 


TOO BAD. YOU LOSE ! ! 


ANOTHER TRY? (1 FOR YES>?0 


GAMES WON: 0 

GAMES LOST? 1 


QQQQaoiQQaa i 
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Program listing 

ROLLON 


1 00 
110 
120 
130 
140 
150 
160 
170 
1S0 
190 
200 
210 
220 
230 
240 
250 
260 
270 
230 
230 
300 
310 
320 
330 
340 
350 
360 
370 


DIM 0(9) 

CLS 

PRINT "THIS IS THE GAME OF ROLL ON. ":PRINT 
PRINT "DO YOU WANT INSTRUCTION? CY=YES)"i 
INPUT A*:CLS:IF A$="Y" THEN 150 ELSE 250 

PRINT "THE OBJECT OF THIS GAME IS TO KNOCK OFF THE FOLLOWING NUMBERS 
PRINT 

PRINT "1 2345673 3 H :PRINT 

PRINT "THIS IS DONE BY ROLLING A PAIR OF DICE AND ADDING THE" 

PRINT "TOTALS. YOU THEN TAKE THAT TOTAL AND KNOCK OFF AS MANY" 

PRINT "NUMBERS AS YOU CAN UNTIL YOUR TOTAL REACHES ZERO. " 

PRINT "YOU THEN THROW THE DICE AGAIN. IF YOU KNOCK OFF" 

PRINT "ALL THE NUMBERS THEN YOU WIN. IF YOU DON’T KNOCK OFF" 

PRINT "ALL THE NUMBERS EXACTLY, THEN YOU LOSE!" 

PRINT 

PRINT "HIT -ENTER- TO BEGIN. 5 : INPUT A 

FOR 1 = 1 TO 3s AC I > =0:NEXT I: 1=0 

CLS : 1 = 1 + 1 : PRINT "HERE IS ROLL" I SPRINT 

X = I NT C 6* : RND C 0 > ) + 1 : X=X+ INT C£*RND C0) ) + i 

PRINT "YOUR ROLL TOTALS "X 

PRINT "HERE IS THE BOARD: "? 

FOR L=1 TO 9: IF ACL)=1 THEN 320 ELSE PRINT Li 

NEXT L : PRINT : IF X>9 THEN 330 ELSE IF ACX)=0 THEN 340 

GOSUB 530: IF E=1 THEN 450 

PRINT: PRINT "WHAT NUMBER DO YOU WANT TO KNOCK OFF";: INPUT L 
IF ACL) <> 1 THEN 370 

PRINT "THAT NUMBERS BEEN USED. " : GOTO 340 
IF X) =L THEN 390 


330 PRINT "THAT NUMBER IS LESS THAN YOUR TOTAL. ":GOTO 340 
390 C=0: X=X-L : ACL) =1 

400 FOR L=1 TO 9: IF ACL)=0 THEN 410 ELSE C=C+1 

410 NEXT L : IF C=9 THEN 420 ELSE IF X=0 THEN 270 ELSE 230 

420 PRINT: PRINT 

430 PRINT "****+ CONGRATULATIONS, YOU WON *****'■ 

440 PRINT : PRINT :W=W+1 :GOTO 430 
450 PRINT : PRINT 

460 PRINT "TOO BAD, YOU LOSE !!!": PRINT 
470 PRINT :Wl=Wi+l 

430 PRINT "ANOTHER TRY? C Y=YES) INPUT A$ 

490 IF A$="Y" THEN 250 

500 CLS : PRINT "GAMES WON: »;W 

510 PRINT "GAMES LOST: ";W1 

520 GOTO 1220 

530 E=0 : 1 F X> 2 THEN 550 

540 E=l: RETURN 


550 

IF 

X 

C4 

H 

HEN 570 








560 

IF 

A C 2 ) = 1 

THEN 

540 

ELSE 

IF 

A C 1 ) = 1 

THEN 

540 

ELSE 

RETURN 

570 

IF 

X <> 4 THEN 590 








530 

IF 

A C 3 ) = 1 

THEN 

540 

ELSE 

IF 

A C 1 ) = 1 

THEN 

540 

ELSE 

RETURN 

590 

IF 

X 

A 

s/ 

U! 

H 

HEN 620 








600 

IF 

A C 3 ) = 1 

THEN 

610 

ELSE 

IF 

A C 2 ) = 1 

THEN 

610 

ELSE 

RETURN 

610 

IF 

A C 4 ) = 1 

THEN 

540 

ELSE 

IF 

A C 1 ) = 1 

THEN 

540 

ELSE 

RETURN 

620 

IF 

X <> 6 THEN 660 








630 

IF 

A C 2 ) = 1 

THEN 

650 

ELSE 

IF 

A C 4 ) = 1 

then 

640 

ELSE 

RETURN 

640 

IF 

A C 3 ) = 1 

THEN 

650 

ELSE 

IF 

A C 1 ) = 1 

THEN 

650 

ELSE 

RETURN 

650 

IF 

A C 5 ) = 1 

THEN 

540 

ELSE 

IF 

A C 1 ) = 1 

THEN 

540 

ELSE 

RETURN 

660 

IF 

X <> 7 THEN 720 








670 

IF 

A C 4 ) = 1 

THEN 

700 

ELSE 

IF 

A C 2 ) = 1 

THEN 

630 



630 

IF 

A C 1 ) = 1 

THEN 

690 

ELSE 

RETURN 





690 

IF 

A C 3 ) = 1 

THEN 

700 

ELSE 

RETURN 





700 

IF 

A C 1 ) = 1 

THEN 

7i0 

ELSE 

IF 

A C 6 ) = 1 

THEN 

710 

ELSE 

RETURN 

710 

IF 

A C 5 ) = 1 

THEN 

540 

ELSE 

IF 

A C 2 ) = 1 

THEN 

540 

ELSE 

RETURN 


II 
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720 

IF 

XOS THEN 790 








730 

IF 

ft c: i > — i 

THEN 

770 

ELSE 

IF 

ft c 2 > = i 

THEN 

750 



740 

IF 

fl(5)=l 

THEN 

750 

ELSE 

RETURN 





750 

IF 

a <: 4 ) = i 

THEN 

760 

ELSE 

IF 

flC3)=l 

THEN 

760 

ELSE 

RETURN 

760 

IF 

ft <: 7 ) = i 

THEN 

770 

ELSE 

RETURN 





770 

IF 

ft<2)=l 

THEN 

780 

ELSE 

IF 

A C 6 ) = 1 

THEN 

780 

ELSE 

RETURN 

780 

IF 

5) =i 

THEN 

540 

ELSE 

IF 

ft <: 3 ) = i 

THEN 

540 

ELSE 

RETURN 

790 

IF 

X <> 9 THEN 890 








S00 

IF 

ft < 1 > = 1 

THEN 

830 

ELSE 

IF 

ft <: 8 ) = i 1 THEN 810 ELSE 

: RETURN 

810 

IF 

ft<: 6 > = i 

THEN 

820 

ELSE 

IF 

ft C 2 ) = 1 

THEN 

820 

ELSE 

RETURN 

820 

IF 

FK3> = 1 

THEN 

830 

ELSE 

IF 

ACS) =1 

THEN 

840 

ELSE 

RETURN 

830 

IF 

A < 5 ) = 1 

THEN 

840 

ELSE 

IF 

ft C 4 ) = 1 

THEN 

840 

ELSE 

RETURN 

840 

IF 

ftC3)=l 

THEN 

850 

ELSE 

IF 

ft C 6 ) = 1 

THEN 

850 

ELSE 

RETURN 

850 

IF 

fiC2)=l 

THEN 

540 

ELSE 

IF 

ft C 7 ) = 1 

THEN 

540 

ELSE 

RETURN 

860 

IF 

X<> 10 

THEN 950 








870 

IF 

flCl)=l 

THEN 

910 

ELSE 

IF 

flC9)=l 

THEN 

880 

ELSE 

RETURN 

880 

IF 

ftC2)=l 

THEN 

890 

ELSE 

IF 

AC7)=1 

THEN 

890 

ELSE 

RETURN 

890 

IF 

flC3)=l 

THEN 

900 

ELSE 

IF 

ftC6)=l 

THEN 

900 

ELSE 

RETURN 

900 

IF 

ft C 4 ) = 1 

THEN 

910 

ELSE 

IF 

ft <: 5 ) = i 

THEN 

910 

ELSE 

RETURN 

910 

IF 

ftC3)=l 

THEN 

930 

ELSE 

IF 

ft(7)=l 

THEN 

920 

ELSE 

RETURN 

920 

IF 

A<5)=1 

THEN 

930 

ELSE 

IF 

ftC2)=l 

THEN 

930 

ELSE 

RETURN 

930 

IF 

ft <: 4 ) = i 

THEN 

940 

ELSE 

IF 

ft C 6 ) = 1 

THEN 

940 

ELSE 

RETURN 

940 

IF 

ft C 2 ) = 1 

THEN 

540 

ELSE 

IF 

ft C 8 ) = 1 

THEN 

540 

ELSE 

RETURN 

950 

IF 

X<> 11 

THEN 

1070 








960 

IF 

fiC2)=l 

THEN 

1020 ELSE IF fi(9)= 

1 THEN 970 ELSE RETURN 

970 

IF 

flCS)=l 

THEN 

980 

ELSE 

IF 

flCl)=l 

THEN 

980 

ELSE 

RETURN 

980 

IF 

A C 3 ) = 1 

THEN 

990 

ELSE 

IF 

ft <: 6 ) = i 

THEN 

990 

ELSE 

RETURN 

990 

IF 

fla>=i 

THEN 

1010 ELSE IF A(3) = 

1 THEN 1010 



1000 

IF 

ft < 5 ) = 1 

THEN 

1010 

ELSE 

RETURN 





1010 

IF 

AC5)=1 

THEN 

1020 

ELSE 

IF fiC4)=l 

THEN 

1020 

ELSE 

RETURN 

1020 

IF 

ft C7) = 1 

THEN 

1050 

ELSE 

IF ft C 3 ) = 1 

THEN 

1040 



1030 

IF 

ftCl)=i 

THEN 

1040 

ELSE 

RETURN 





1040 

IF 

ft <: 4 ) = l 

THEN 

1050 

ELSE 

RETURN 





1050 

IF 

ftC3)=l 

THEN 

1060 

ELSE 

IF ft ( 8 ) = 1 

THEN 

1060 

ELSE 

RETURN 

1060 

IF 

ft <: 5 ) = i 

THEN 

540 ELSE 

IF ft ( 6 ) = 1 ' 

THEN 540 ELSE RETURN 

1070 

IF 

ft <: 3 > = i 

THEN 

1150 

ELSE 

IF ft C 9 ) = 1 

THEN 

1080 

ELSE 

RETURN 

1080 

IF 

ft(S)=l 

THEN 

1090 

ELSE 

IF fl<l)=l 

THEN 

1090 

ELSE 

RETURN 

1090 

IF 

ft <: 2 > = i 

THEN 

1100 

ELSE 

IF ft C 7 ) = 1 

THEN 

1100 

ELSE 

RETURN 

1 100 

IF 

ft <: e ) = l 

THEN 

1120 

ELSE 

IF ft C 2 ) = 1 

THEN 

1120 



1 H0 

IF 

ft <: i > = l 

THEN 

1120 

ELSE 

RETURN 





1 120 

IF 

ft <: 6 ) = i 

THEN 

1140 

ELSE 

IF ft ( 2 ) = 1 

THEN 

1140 



1130 

IF 

flCl)=l 

THEN 

1140 

ELSE 

RETURN 





1140 

IF 

ft <: 4 > = l 

THEN 

1150 

ELSE 

IF ft C 5 ) = 1 

THEN 

1150 

ELSE 

RETURN 

1150 

IF 

fl(5)=l 

THEN 

1190 

ELSE 

IF ft < 7 ) = 1 

THEN 

1160 

ELSE 

RETURN 

1160 

IF 

ft <: 4 :> = i 

THEN 

1180 

ELSE 

IF fl(2)=l 

THEN 

1180 



1170 

IF 

ftCl)=l 

THEN 

1180 

ELSE 

RETURN 





1180 

IF 

ft C 6 ) — 1 

THEN 

1 190 

ELSE 

IF flCl)=l 

THEN 

1190 

ELSE 

RETURN 

1190 

IF 

ft C 9 ) = 1 

THEN 

1210 

ELSE 

IF AU> = 1 

THEN 

1210 



1200 

IF 

ftC2)=l 

THEN 

1210 

ELSE 

RETURN 





1210 

IF 

ft C 4 ) = 1 

THEN 

540 ELSE 

IF ft(S)=l 

THEN ! 

540 ELSE RETURN 

1220 

END 
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Description 

This is a fast and challenging game of numbers. To play, we select a 
single-digit scoring number between 2 and 9. Let’s use 4 as an example. 
Then any number with a 4 in it (for example, 14, 24) would score a 
point. So would 31 apd 28 because 3 + 1=4, and 8/2 = 4, and so on. 

To begin the game you pick any number that is not a scoring num- 
ber. The computer then obtains a new number by taking your old 
number and adding, subtracting, multiplying, or dividing the digits in 
any order. The computer can also double, square, square root, or halve 
the number. 

The number 1 is wild, and when it appears as a move the next per- 
son may pick any number he wishes, even a scoring number. Entering 
a zero on your move gives the computer a point, and the computer then 
will tell you a move to make. 

A number must be an integer never used before in the game you’re 
playing. It also must be less than 10 times the scoring number. The last 
person to move gets a point. 

Here is an explanation of how to play a sample game. The scoring 
number is nine. 

6/2 = 3 

3 t 2 = 9 one point for scoring number 9 

9 t 2 = 81 two points for 1 + 8 = 9 f\/8T = 9j 

8X1=8 multiplied by digits 

8 t 2 = 64 squared it 

64/2 = 32 halved it 
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3 + 2 = 5 add digits 
5 X 2=10 doubled it 
10 X 2 = 20 doubled it 
20 X 2 = 40 doubled it 
40 X 2 = 80 doubled it 

No moves left. Last person to move gets the final point. 


Variable list 

A = Number of the computation to perform 
C( ) = A list of numbers picked 
E = Error flag 

E = 0 No error 
E = 1 Error 

L = Counter for numbers picked 
N = Number picked 
N1 = Previous move 
N3 = Move for player 
O = Ones position of current number 
01 = Ones position of previous number 
P = Points for number by player 
PI = Points for number by computer 
S = Scoring number 
T = T enth position of current number 
T1 = Tenth position of previous number 
X = Points for player 
Y = Points for computer 


Sample run 


THIS IS A GAME OF SKEEDOODLE. 

DO YOU WANT THE INSTRUCTIONS? <1 FOR YES)?1 

TO PLAY , WE SELECT A SINGLE-DIGIT SCORING NUMBER. LET'S 
USE 4 AS AN EXAMPLE. THEN ANY NUMBER WITH A 4 IN IT 
(IE. 14,24) WOULD SCORE A POINT. SO WOULD 31 AND 28 
BECAUSE 3+1=4, AND 8/2=4, AND SO ON. 

TO BEGIN THE GAME YOU PICK ANY NUMBER THAT IS NOT A SCORING 
NUMBER. I THEN GET A NEW NUMBER BY TAKING YOUR OLD ONE 
AND ADDING, SUBTRACTING, MULTIPLYING, OR DIVIDING THE DIGITS 
IN ANY ORDER, I CAN ALSO DOUBLE, SQUARE, SQUARE ROOT, OR 
HALVE THE NUMBER. 

THE NUMBER 1 IS WILD AND THE NEXT PERSON MAY PICK ANY NUMBER 
HE WISHES, EVEN A SCORING NUMBER. ENTERING A ZERO ON YOUR 
MOVE GIVES THE COMPUTER A POINT AND IT WILL TELL YOU A MOVE 
TO MAKE. 
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A NUMBER MUST BE AN INTEGER NEVER USED BEFORE IT THE GAME 
YOUR PLAYING. IT MUST ALSO BE LESS THAN TEN TIMES THE 
SCORING NUMBER. THE LAST PERSON TO MOVE GETS A POINT. 

GIVE ME A SINGLE-DIGIT SCORING NUMBER77 

START OFF WITH THE FIRST NUMBERT13 
MY MOVE IS 26 
YOUR M0VE?3 
MY MOVE IS 6 
YOUR M0VE712 
MY MOVE IS 24 
YOUR M0VE72 
MY MOVE IS 1 
YOUR M0VET49 
1 POINT ( S ) FOR YOU. 

MY MOVE IS 7 
1 POINT < S ) FOR ME. 

YOUR M0VET14 
1 POINT < S > FOR YOU. 

MY MOVE IS 28 
YOUR M0VE?4 
MY MOVE IS 16 
1 POINT ( S > FOR ME. 

YOUR M0VE78 
MY MOVE IS 64 
YOUR MOVETIO 
MY MOVE IS 5 
YOUR M0VET25 
1 POINT ( S ) FOR YOU. 

MY MOVE IS 50 
NO MOVES LEFT. 

A FINAL POINT FOR ME 

A TIE! 3 3 

ANOTHER GAME? <1 FOR YES)?0 




Program listing 
SKEEDO 


100 DIM C (50) 

110 CLS: PRINT "THIS IS ft GftME OF SKEEDOCJDLE. ": PRINT 
120 PRINT "DO YOU WONT INSTRUCTIONS? <Y=YES> "?: INPUT ft$ 

130 CLS: IF ft$=" Y" THEN 1270 

140 PRINT "GIVE ME A SINGLE-DIGIT SCORING NUMBER" ?: INPUT S 
150 L=1 : FOR 1=1 TO 50 : CCI )=0 : NEXT I 
160 X=0: Y=0 

170 IF INT IS) OS THEN 180 ELSE IF S<3 THEN 1S0 ELSE IF S<10 THEN 200 
180 PRINT "THE SCORING NUMBER MUST BE FROM 3 TO 9. " 

130 PRINT :GOTQ 140 

200 PRINT : PRINT "STfiRT OFF WITH THE FIRST NUMBER"? 

210 INPUT N: GOSUB 1220: IF E=1 THEN 230 
220 GOSUB 1080: IF P=0 THEN 250 

230 PRINT "STARTING NUMBER CAN’T BE SCORING POINT AND" 

240 PRINT "MUST BE AN INTEGER BEWEEN 1 AND" ;S*10: GOTO 200 
250 C(L)=N:L=L+1 
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260 N1=N:A=0:P1=0 


.i70 IF N1 O 1 THEN 310 ELSE N=N+1:IF N>S*10 THEN 290 ELSE GOSUR i o 
280 IF E=1 THEN 270 ELSE GOSUB 1080: IF P=0 THEN 270 ELSE p?=pV- 
290 WHIIF N=1 THEN 600 ELSE GOSUB 1220: IF E=1 THEN ^90 
•300 GOSUB 1080: P1=0: N2=N: GOTO 620 
310 T1=INTCN/10) :O1=N~<T1*10) 


320 N=T 1+01: GOSUB 1220: IF E=1 THEN 350 

330 GOSUB 1080: IF P<P1 THEN 350 ELSE A=1:P1=P 

340 N2=N 


350 N=ABS<T1 -01): GOSUB 1220: IF E=1 THEN 380 
360 GOSUB 1080: IF P<P1 THEN 380 ELSE A=2:P1=P 
370 N2=N 

380 N=T1+01 : GOSUB 1220: IF E=1 THEN 410 

390 GOSUB 1080: IF P<P1 THEN 410 ELSE A=3:P1=P 

400 N2=N 

410 IF 01=0 THEN 440 ELSE IF N=T1/01 : GOSUB 1220: IF E=i 
420 GOSUB 1080: IF P<P1 THEN 440 ELSE A=4:P1=P 
430 N2=N 


THEN 440 


440 IF Tl-0 THEN 470 ELSE N=01/T1 : GOSUB 1220: IF E=i 
450 GOSUB 1080: IF P<P1 THEN 470 ELSE A=5:P1=P 
460 N2-N 

470 N=N 1+2: GOSUB 1220: IF E=1 THEN 500 

480 GOSUB 1080: IF P<P1 THEN 500 ELSE A=6:Pi=P 

490 N2=N 


THEN 470 


500 N=2*N1: GOSUB 1220: IF E=1 THEN 530 

510 GOSUB 1080: IF P<P1 THEN 530 ELSE A=7:P1=P 

520 N2=N 


530 N=SG!RCN1 ): GOSUB 1220: IF E=1 THEN 560 
540 GOSUB 1080: IF P<P1 THEN 560 ELSE A=S:P1=P 
550 N2=N 

560 N=Nl/2: GOSUB 1220: IF E=1 THEN 590 

570 GOSUB 1080: IF P<P1 THEN 590 ELSE A=9:P1=P 

580 N2=N 

590 IF A <> 0 THEN 620 
600 PRINT "NO MOVES LEFT. " 

610 PRINT "A FINAL POINT FOR YOU !": X=X+1 : GOTO 980 
620 N=N2 : C C L ) =N : L=L+ 1 
630 PRINT "MY MOVE IS"?N 


640 IF P1=0 THEN 660 ELSE Y=Y+P1 
650 PRINT PI ; "POINT (S) FOR ME." 

660 Nl=N:Tl=INT(N/i0) :01=N- CT1+10) 


670 N=T1+01 : GOSUB 1220: IF EOl THEN 790 
680 N=ABS <T1 -01 ): GOSUB 1220: IF EOl THEN 790 
690 N=T 1 +0 1 : GOSUB 1220: IF EOl THEN 790 

700 IF 01=0 THEN 710 ELSE N=T1/01 :GOSUB 1220: IF EOl THEN 790 

710 IF T1=0 THEN 720 ELSE N=01/T1 :GOSUB 1220:IF EOl THEN 790 

720 N=N1+2:G0SUB 1220: IF EOl THEN 790 

730 N=2+N1 : GOSUB 1220: IF EOl THEN 790 

740 N=SQRCN1 ): GOSUB 1220: IF EOl THEN 790 

750 N=N1 /2: GOSUB 1220: IF EOl THEN 790 

760 IF Nl=l THEN 790 

770 PRINT "NO MOVES LEFT. " : PRINT "A FINAL POINT FOR ME":Y=Y+1 
780 GOTO 980 
790 N3=N 

800 PRINT "YOUR MOVE" ;: INPUT N:IF NO0 THEN 820 
810 PRINT "YOUR MOVE" ?N3:N=N3: Y=Y+i 

320 GOSUB 1220: IF E=1 THEN 330 ELSE IF N2=l THEN 940 


830 T=INT CN2/10) : 0=N2- (T+l 0) 

840 IF T+0=N THEN 340 
850 IF ABS <!T-0) =N THEN 940 

860 IF 0=0 THEN 870 ELSE IF T/0=N THEN 940 

870 IF T=0 THEN 880 ELSE IF 0/T=N THEN 940 

880 IF T+0=N THEN 940 

890 IF N2+2=N THEN 940 

300 IF 2*N2=N THEN 940 

310 IF SQRCN2)=N THEN 940 

920 IF N2/2=N THEN 940 
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930 PRINT "ILLEGAL MOVE. " : GOTO S00 
940 GOSUB 1030: IF P=0 THEN 970 
950 PRINT P; "POINT <S) FOR YOU." 

9E0 X=X+P 

970 C C L ) =N : L=L+ 1 : GOTO 2E0 
9S0 PRINT: IF Y> X THEN 1010 
990 IF X=Y THEN 1030 

1000 PRINT "YOU WON", X ;Y: X1=X1+1 :GOTO 1040 
1010 PRINT "I WON",Y;X 
1020 Yl=Yl+l:GOTO 1040 
1030 PRINT "A TIE ! " , X " Y 

1040 PRINT: PRINT "ANOTHER GAME? (Y=YES) " ; 

1050 INPUT A$ : CLS : IF A*="Y" THEN 140 

10E0 PRINT "TOTAL GAMES" : PRINT 

1070 PRINT "YOU" ?X1, "ME" ; Y1 :PRINT:GOTO 1440 

10S0 T=INTCN/10) :O=N-CT*10> : P=0 

1090 IF T=0 THEN 1190 

1100 IF T+OOS THEN 1110 ELSE P=P+1 

1110 IF ABSc:T-0)OS THEN 1120 ELSE P=P+i 

1120 IF T*0 <} S THEN 1130 ELSE P=P+1 

1130 IF 0=0 THEN 1140 ELSE IF T/OOS THEN 1140 ELSE P=P+1 

1140 IF T=0 THEN 1150 ELSE IF O/TOS THEN 1150 ELSE P=P+1 

1150 IF N+NOS THEN 1160 ELSE P=P+1 

1160 IF 2*NOS THEN 1170 ELSE P=P+1 

1170 IF SQR CN) OS THEN 1130 ELSE P=P+1 

1180 IF N/2 0S THEN 1190 ELSE P=P+1 

1190 IF TOS THEN 1200 ELSE P=P+1 

1200 IF OOS THEN 1210 ELSE P=P+1 

1210 RETURN 

1220 E=0:FOR 1 = 1 TO L:IF C(I) ON THEN 1230 ELSE E=1 

1230 NEXT I : IF N=INTCN) THEN 1240 ELSE E=1 

1240 IF N>0 THEN 1250 ELSE E=1 

1250 IF N<=S+10 THEN 1260 ELSE E=1 

1260 RETURN 


i270 PRINT 
1230 PRINT 
1290 PRINT 
1300 PRINT 
1310 PRINT 
1320 PRINT 
1330 PRINT 
1340 PRINT 
1350 PRINT 


"TO PLAY, WE SELECT A SINGLE-DIGIT SCORING NUMBER. LET’S" 

"USE 4 AS AN EXAMPLE. THEN ANY NUMBER WITH A 4 IN IT" 

"CIE. 14,24) WOULD SCORE A POINT. SO WOULD 31 AMD 23" 

"BECAUSE 3+1=4, AND 3/2=4, AND SO ON. ":PRINT 

“TO BEGIN THE GAME YOU PICK ANY NUMBER THAT IS NOT A SCORING" 
"NUMBER. I THEN GET A NEW NUMBER BY TAKING YOUR OLD ONE" 

"AND ADDING , SUBTRACTING, MULTIPLYING, OR DIVIDING THE DIGITS" 
"IN ANY ORDER. I CAN ALSO DOUBLE, SQUARE, SQUARE ROOT, OR" 
"HALVE THE NUMBER. " 


1360 PRINT : PRINT "HIT -ENTER- TO CONTINUE. INPUT A:CLS 

" THE NUMBER ! IS WILD AND THE NEXT PERSON MAY PICK ANY NUMBER 1 
1.^30 PRINT "HE WISHES, EVEN A SCORING NUMBER. ENTERING A ZERO ON YOUR" 

}22 Sis mKE^? P ™NT C0MPUTER PDINT flND IT WILL TELL vou S 


1410 PRINT 
1420 PRINT 
1430 PRINT 
1440 END 


"A NUMBER MUST 
"YOU’RE PLAYING 
"SCORING NUMBER 


BE AN INTEGER NEVER USED BEFORE IN THE GAME" 

. IT MUST ALSO BE LESS THAN TEN TIMES THE" 

. THE LAST PERSON TO MOVE GETS A POINT. ": GOTO 140 
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Description 

Imagine yourself on the S.S. Enterprise as Captain Kirk! This game 
simulates in striking detail a space battle using the characters from Gene 
Roddenberry ’s TV series. An attack by the Klingonson the Enterprise 
begins the action in the game. You are given 5 options to use during 
the battle. One of these options (3) is a status report. This report deter- 
mines new angles to use when firing your weaponry. 

To figure out the angle of attack use these formulas along with the 
status report: 

Enterprise angle + Enterprise turn = new Enterprise angle 
Klingon angle + Klingon turn = new Klingon angle 

To determine the angle to shoot at, you take your angle (Enter- 
prise) plus the Klingon’s angle. It is important to determine new angles 
before every firing so that you can shoot the enemy down. 

At every option, a new angle of movement is calculated. If either of 
you changes direction, you should get a status report to find out new 
angles of attack. Obviously, a turn of zero degrees will never change 
your current angle. 

Distance is important only if you blow yourself up. Warps make no 
difference except that it affects the distance apart from the Klingons. 

Of course, when your life support reaches zero, you lose! Good hunting! 


124 


Variable list 


A1 = Angle of Enterprise 
A2 = Angle of Klingons 
A3 = Turn of Enterprise 
A4 = Turn of Klingons 
C= Random number generator variable 
D = Distance of Enterprise to Klingons 
HI = Amount of damage done to shields of Klingons after a hit 
H2 = Amount of damage done to shields of Enterprise after a hit 

11 = Impulse of Enterprise 

12 = Impulse of Klingons 

LI = Life support of Enterprise 
L2 = Life support of Klingons 
PI = Warp drive of Enterprise 
P2 = Warp drive of Klingons 
Q1 = Warp speed of Enterprise 
Q2 = Warp speed of Klingons 

51 = Shields of Enterprise 

52 = Shields of Klingons 

W1 = Weaponry of Enterprise 
W2 = Weaponry of Klingons 
X = Distance being traveled by Klingons 
Y = Distance being traveled by Enterprise 


Sample run 

THIS IS A STAR TREK GAME 

1 - FIRE PHASERS 

2 - FIRE PHOTON TORPEDOS 

3 - STATUS REPORT 

4 - CHANGE MOVEMENT 

5 - SELF DESTRUCT 

WHAT IS YOUR 0PTI0NT3 
***STATUS REPORT*** 

ENTERPRISE KLINGONS 


SPEED (WARPS) 3 3 


ANGLE 

37 

-143 

TURN 

0 

0 

LIFE SUPPORT 

100 7 . 

100 

WARP DRIVE 

100 % 

100 

IMPULSE 

100 7 . 

100 

SHIELDS 

100 % 

100 

WEAPONRY 

100 X 

100 

MR. SCOTT REPORTS 

KLINGONS AT 

100000 K 


CHECKOV REPORTS KLINGONS HAVE CHANGED DIRECTION. 
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WHAT IS YOUR 0PTI0N72 

WHAT ANGLE DO YOU WANT TO SHOOT AT?-106 
SULU REPORT A MISS! 


***WARNING***KLINGONS HAVE FIRED PHOTON TORPEDOS 


SPOCK REPORTS 

YOU SUFFER 

FROM A DIRECT 

HIT! 

WHAT IS YOUR 

0PTI0N73 



♦♦♦STATUS 

REPORT*** 




ENTERPRISE 

KLINGONS 


SPEED (WARPS) 

3 

3 


ANGLE 

17 

3 


TURN 

0 

-10 


LIFE SUPPORT 

100 X 

100 

X 

WARP DRIVE 

0 X 

100 

X 

IMPULSE 

100 7. 

100 

X 

SHIELDS 

91 X 

100 

X 

WEAPONRY 

97 X 

100 

X 


MR. SCOTT REPORTS KLINGONS AT 100048 K.M. 


***WARNING***KLINGONS HAVE FIRED PHOTON TORPEDOS 
SPOCK REPORTS YOU SUFFER FROM A DIRECT HIT! 

WHAT IS YOUR 0PTI0N?2 

WHAT ANGLE DO YOU WANT TO SHOOT AT?24 
MR. SULU REPORTS DIRECT HIT!! 

*** WARNING*** KLINGONS HAVE FIRED PHASER’S. 

SENSORS SHOW KLINGONS SHOT WIDE! 

WHAT IS YOUR QPTI0N72 

WHAT ANGLE DO YOU WANT TO SHOOT AT?0 

***DIRECT HIT*** 

CHECKOV REPORTS KLINGONS HAVE CHANGED DIRECTION. 

WHAT IS YOUR 0PTI0NT3 
***STATUS REPORT*** 


ENTERPRISE KLINGONS 


SPEED (WARPS) 

3 

p 

ANGLE 

11 

2 

TURN 

0 

14 

LIFE SUPPORT 

100 X 

100 X 

WARP DRIVE 

0 X 

100 X 

IMPULSE 

100 X 

100 % 

SHIELDS 

82 X 

82 X 

WEAPONRY 

94 X 

94 X 


MR. SCOTT REPORTS KLINGONS AT 102604 K.M. 

***WARNING***KL INGONS HAVE FIRED PHOTON TORPEDOS 
**DIRECT HIT** 

WHAT IS YOUR 0PTI0N72 

WHAT ANGLE DO YOU WANT TO SHOOT AT?29 
♦♦♦DIRECT HIT*** 

CHECKOV REPORTS KLINGONS HAVE CHANGED DIRECTION. 
WHAT IS YOUR 0PTI0N72 

WHAT ANGLE DO YOU WANT TO SHOOT AT?61 
SULU REPORT A MISS! 

***WARNING***KL INGONS HAVE FIRED PHOTON TORPEDOS 
SULU REPORTS A HIT ON THE ENTERPRISE! 
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WHAT IS YOUR 

0PTI0N73 


♦♦♦STATUS 

reports 



ENTERPRISE 

KLINGONS 

SPEED (WARPS) 

3 

*:> 

ANGLE 

15 

2 

TURN 

0 

-5 

LIFE SUPPORT 

100 % 

100 Z 

WARP DRIVE 

0 7. 

100 % 

IMPULSE 

100 7. 

100 Z 

SHIELDS 

64 % 

73 Z 

WEAPONRY 

88 Z 

91 Z 


MR. SCOTT REPORTS KLINGONS AT 110128 K.M. 

***UARNING***KLINGONS HAVE FIRED PHOTON TORPEDOS 
SULU REPORTS A HIT ON THE ENTERPRISE! 

WHAT IS YOUR OPTION’S 
KLINGONS TOO FAR AWAY!! 

YOU LOSE. MR. SCOTT » SULU* CHECKOV * SPOCK* AND 
UHURA REPORT THAT YOU ARE AN IDIOT!! 

READY. 


QQQQQaaaQa 


Program listing 

STARTR 


100 

110 

120 

130 

140 

150 

160 

170 

130 

190 

200 

210 

220 

230 


K1 =3. 14169/130 

Q1 =3 : 02=3: D=1 00000= Pl=100: P2=100: 11 = 100 
Al = INT<:iS0+RND<:0> )— 30:ft2=—C 130—Ai ) 

r'-=100:Ll = 100:L2=100:Sl = 100:S2=100:Wl = 100:U12=100 
CLS: PRINT "THIS IS A STAR TREK GAME": PRINT 

FIRE PHASERS" : PRINT "2 - FIRE PHOTON TORPEDOES" 
STATUS REPORT" : PRINT "4 - CHANGE MOVEMENT" 

SELF DESTRUCT" 

"WHAT IS YOUR OPTION" INPUT 09 
220. 310, 460, 570, S00 
PRINT "WHAT?" sGOTO 180 

IF A < 1 THEN 130 ELSE ON A GOTO 220, 310, ,460 

GOSUB 1060: IF ABSiA-Al > > 10 THEN 360 ELSE IF D> 150000 THEN 420 
C=INT<3*RND<:0> ) + l :H1=2*INT C C150000-D) /30000I 


PRINT "1 
PRINT “3 
PRINT "5 
PRINT SPRINT 
ON 09 GOTO 


240 ON C GOTO 250,260,270 

-•50 PRINT "PHASERS SCORE A DIRECT HIT!!! GOOD SHOOT I NG !": GOTO 620 

260 PRINT "CHECKOV REPORTS A DIRECT HIT BY PHASERS !" :GOTO 620 

•770 C=I NT ('3* I NT (0) ) + l :0N 0 GOTO 230,290,300 

230 PRINT "MR. SULU REPORTS DIRECT HIT!!!":G0T0 620 

-•90 PRINT "*** DIRECT HIT ***" sGOTO 620 

300 PRINT "SPOCK REPORTS DIRECT HIT ON KLINGON SHIP!":GOTO 620 
310 GOSUB 1060: IF ABS C A-Al ) > 25 THEN 440 ELSE IF D> 300000 THEN 430 
320 C=INTC3*RND<:0) ) + l :H1 = INT (. C300000-D) /50000> 

330 ON 0 GOTO 340,350,270 

340 PRINT "PHOTON TORPEDOES SCORE DIRECT HIT! "SGOTO 620 

350 PRINT "SULU REPORTS DIRECT HIT BY PHOTON TORPEDOES ": GOTO 620 

360 C=INT C2*RND(0) )+l :H1=0=ON C GOTO 370,380 

370 PRINT "CHECKOV REPORTS CLEAN MISS BY PHAStRS !" SGOTO 620 

330 C=INT<4+RND<0) ) + l :QN C GOTO 390,410,400 

390 PRINT "YOUR SHOT IS WIDE!":GOTO 620 

400 PRINT "SPOCK REPORTS A CLEAN MISS":GOTO 620 

410 PRINT "SULU REPORTS A MISS" sGOTO 620 

420 PRINT "YOU ARE OUT OF PHASER RANGE" : GOTO 620 
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430 
440 
450 
460 
470 
430 
490 
500 
510 
520 
530 
540 
550 
560 
570 
530 
590 
600 
610 
620 
640 
650 
660 
670 
630 
690 
700 
710 
720 
730 
740 
750 
760 
770 
730 
790 
300 
310 
320 
330 
340 
350 
360 
370 
330 
390 
900 
910 
320 
930 
940 
350 
960 
970 
330 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1 030 
1090 
1100 


PRINT "YOU ARE OUT OF PHOTON TORPEDO RANGE" :GOTO 6'"’0 
C=INT (3*RND(0) ) + l :H1=0: IF C=1 THEN 450 ELSE 330 
PRINT "CHECKOV REPORTS A MISS BY PHOTON TORPEDOES 1 " :GOTO 6~’0 
CLS: PRINT TAB < 5 )" *+* STATUS REPORT ***" 

PRINT TAB ( 1 5 ) " ENTERPR I SE " TAB C 30 ) " KL I NGONS " 

PRINT "SPEED (WARPS) "TAB (20) 01 TAB (35) Q2 

PRINT "ANGLE " T AB ( 20 ) A1 TAB ( 35 ) A2 

PRINT " TURN " T AB C 20 ) A3TAB < 35 ) A4 

PRINT "LIFE SUPPORT "TAB C 20 ) L 1 " ?4 " T AB C 35 ) L2 " % " 

PRINT "WARP DRIVE"TAB(20)P1"Y."TAB(35) P2"Y." 

PRINT " IMPULSE "TAB (20) 1 1 "5t" TAB (35) I2"3t" 

PRINT "SHIELDS "TAB (20) SI "H"TAB(35)S2"tf " 

PRINT " WEAPONRY" TAB ( 20) W1 TAB ( 35 ) W2 " " 

PRINT "MR. SPOOK REPORTS KLINGONS AT"D"K. M. " : GOTO 620 

PRINT "WHAT ANGLE DO YOU WANT TO TURN";: INPUT A3: IF W2<ABS(A3) THEN 570 
PRINT "WHAT WARP FACTOR DO YOU WANT TO MOVE TO";: INPUT Qi 
IF Qi > INT (Wl/10) THEN 530 ELSE 620 

IF D <50000 THEN 610 ELSE PRINT "KLINGONS TOO FAR AWAY ! ! ! " :GOTO 990 
PRINT "KLINGONS ARE DESTROYED BUT SO ARE YOU!":GOTO 1100 
PRINT :C=INT (4*RND (0) )+l :GN C GOTO 640,740,730,300 
PRINT "*** WARNING +** KLINGONS HAVE FIRED PHASERS 1 " 

IF D> 200000 THEN 710 ELSE IF RNDC0) > . 6 THEN 710 

C=INT(100*RND(0))+1:IF C> W2 THEN 710 ELSE H2=INT (2+< 150000-D) Z30000) 
C=INT<3*RND(0) ) + l :0N 0 GOTO 630,690,700 
PRINT "+* DIRECT HIT **" :GOTO 320 

PRINT "SPOCK REPORTS YOU SUFFER FROM A DIRECT HIT!":GOTO S?0 

PRINT "SULU REPORTS A HIT ON THE ENTERPRI SE ! " : GOTO 820 

C=INT (2+RND (0) )+l : H2=0: ON C GOTO 720,750 

PRINT "CHECKOV REPORTS A MISS. " :GOTO 320 

PRINT "SENSORS SHOW KLINGONS SHOT WIDE!":GOTO 320 

PRINT "*** WARNING *** KLINGONS HAVE FIRED PHOTON TORPEDOES" 

IF D> 300000 THEN 710 ELSE IF RND(0)>.85 THEN 710 
gQ^ T ^® 0 * RND<0>) !IF C>W2 ‘ THEN 710 ELSE H2=INT C (300000-D) /50000) 

A4= I NT ( ( P2/2 ) *RND ( 0 ) -P2/4 ) : 02= I NT ( < P2/ 1 0 > *RND C 0 ) ) 

PRINT "CHECKOV REPORTS KLINGONS HAVE CHANGED DI RECTION. " : GOTO 320 
IF P2> 30 THEN 620 ELSE PRINT "KLINGONS HAVE SELF DESTRUCTED ! " 

IF D> 50000 THEN 1010 ELSE PRINT "YOU ARE ALSO DESTROYED !!!": GOTO 1100 
A1~A1+A3+A4:Q=A1 :GOSUB 1070: A1=Q: A2=A2+A3+A4 : Q=Q2 : GOSUB 1070 
A2=Q: X=SQR ( D-t-2+ C 02*5000 ) t>2- ( 2*=D* : Q2* : 5000*CQS ( ABS ( A2 ) * : K 1 ) ) ) 

Y=SQR (Dt-2+ <01*5000) t-2-<:2*D*Ql*5000*COS CABS (A2)*K1 ) ) ) 

D=INT ( < X+Y) /2 ) + 15000 : H 1 =H 1 *3 : H2=H2+3 : S 1 =S 1 — H2 : S2=S2-H 1 
Pl=Pl-H2/3: P2=P2-Hl/3: Wl=Wl-H2/3: W2=W2-Hl/3 
IF SI <0 THEN 330 ELSE IF S2<0 THEN 900 ELSE 920 
PRINT "MR. SCOTT REPORTS SHIELDS ARE OUT!" 

K4—1 : W1=W1+S1 : P1=P1+S1 : 11=1 i+Sl :L1=L1+S1 :S1=0:GOTO 950 
P2=P2+S2 : W2=W2+S2 : L2=L2+S2 : I 2= I 2+S2 : S2=0 

PRINT "CHECKOV REPORTS KLINGON SHIELDS ARE OUT!":GOTO 950 
IF SI <25 THEN 930 ELSE IF S2<25 THEN 940 ELSE 950 

PRINT "SCOTTY REPORTS NUMBER 4 & 6 SHIELDS HAVE BUCKLED !": GOTO 950 
PRINT "SENSORS SHOW THAT KLINGONS SHIELDS ARE WEAK!" 

H1=0: H2=0: IF LI <10 THEN 960 ELSE IF L2<10 THEN 1010 ELSE 1030 
C=INT (3+ : RNDC0) ) + l :0N C GOTO 970,930,990 

PRINT "YOU HAVE BEEN DESTROYED. KLINGONS TAKE OVER!":GOTO 1100 

PRINT "YOU HAVE BLOWN UP! YOU LOSE*": GOTO 1100 

PRINT "YOU LOSE. MR. SCOTT, SULU, CHECKOV, SPOCK, AND" 

PRINT "UHURA REPORT THAT YOU ARE AN IDIOT ' ! <": GOTO 1100 

PRINT "KLINGONS ARE DEAD, YOU’VE SAVED THE GALAXY '": GOTO 1100 

PRINT "SULU REPORTS KLINGONS ARE DEAD! YOU WIN'": GOTO U00 

IF LI <50 THEN 1040 ELSE IF L2<50 THEN 1050 ELSE 130 

PRINT "LT. UHURA REPORTS LIFE SUPPORT IS FAILING !" :GOTO 130 

PRINT “SENSORS SHOW KLINGONS ARE ALMOST OUT OF POWER! ":GOTO 130 

PRINT "WHAT ANGLE DO YOU WANT TO SHOOT AT";: INPUT A: RETURN 

IF A <-130 THEN 1030 ELSE IF G> 130 THEN 1090 ELSE RETURN 

A=A+360 : GOTO 1070 

O=Q-360 : GOTO 1070 

END 


128 




Description 

A game of playing the stock market is simulated by the computer in 
this program. A group of corporations are listed in a table or tabula- 
tion board and the player buys and sells stocks for a profit (or loss) 
from the corporations on the board. The object of the game is to make 
more money than your opponent. 

Corporations are created every day to assure continuance of a busi- 
ness beyond the usually shorter period of time that a single proprietor 
or members of a partnership exist. A corporation can gather together 
and obtain far greater amounts of working capital than any single indi- 
vidual or a partnership. 

A corporation is permitted to produce negotiable certificates allow- 
ing ready transfer of ownership and management. These certificates are 
commonly called shares of stock. Most shares of a corporation are cre- 
ated to provide funds for companies (corporations) to maintain contin- 
ued expansion and production growth. 

The method of buying and selling stock in this game is as follows. 
The player rolls 2 dice, die “A” and die “B.” The player can either 
buy “A” shares of stock in company “B” or buy “B” shares of stock 
in company “A.” The player can sell “A” and “B” company stocks the 
same way. Obviously, the player can’t sell more shares of stock than he 
has. There is also a 5% brokerage fee on all money transactions. 

In order to make the price of a stock go up or down the player 
must use his turn not to buy or sell, but to raise or lower the price of 
any stock. This is done by raising stock “A” by “B” dollars or by drop- 
ping stock “A” by “B” dollars. The player can also raise or lower stock 
“B” by “A” dollars. 

Everyone starts the game with $50, and the game ends when a per- 
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son has $100 cash on hand. The computer is very “bullish,” so all 
“bears” beware! 

Note 

Option 1 is used to buy or sell stocks and Option 2 is used to raise or 
lower the price of a stock. A negative number for shares is typed in for 
selling or lowering a particular stock. 


Variable list 

A( ) = Assets owned by each player 
A9 = Average cost per share 
C( ) = Dollars per share for each stock 
Cl = Company number chosen by player 
M( ) = Cash on hand for each player 
01 = Option number chosen by player 
Q = Number of players in game 
S( ) = Number of shares of each stock owned by the players 
SI = Number of shares chosen by player 
T = Number of dollars each player begins the game with 
T1 = Number of dollars needed to win game 


Sample run 


STOCK MARKET GAME 


HOW MANY PLAYERS72 

DO YOU WISH FOR THE INSTRUCTIONS? (1 FOR YES)?1 


THIS IS A GAME OF STOCK MARKET, THE OBJECT OF THIS 
GAME IS TO MAKE MORE MONEY THAN YOUR OPPONENT. 

THIS IS DONE BY BUYING AND SELLING STOCKS FOR A PROFIT. 

THE WAY YOU BUY AND SELL STOCK IS AS FOLLOWS. YOU ROLL TWO 
DICE? SAY DICE A AND DICE B. YOU CAN EITHER BUY ' A ' SHARES 
OF STOCK IN COMPANY 'B' OR BUY 'B' SHARES OF STOCK IN COMPANY 'A', 
THE SAME GOES FOR SELLING EXCEPT r OBVIOUSLY r YOU C^N'T SELL MORE 
SHARES OF STOCK THAN YOU HAVE, THERE IS ALSO A 5% BROKERAGE 
FEE ON ALL MONEY TRANSACTIONS. 

TO MAKE THE PRICE OF A STOCK GO UP OR DOWN REQUIRES THAT 
YOU USE YOUR TURN t NOT TO BUY OR SELL t BUT TO RAISE OR LOWER 
THE PRICE OF ANY STOCK. THIS IS DONE BY RAISING 'A' STOCK 
BY / B ' DOLLARS OR BY DROPPING 'A' STOCK BY ' B ' DOLLARS. IT 
ALSO WORKS IN REVERSE? THAT IS YOU RAISE OR LOWER ' B ' STOCK 
BY 'A' DOLLARS. 
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OPTION 1 IS USED TO BUY OR SELL STOCKS WHILE 

OPTION 2 IS USED TO RAISE OR LOWER THE PRICE OF A STOCK ♦ 

TO SELL OR LOWER A STOCK, TYPE IN A NEGATIVE NUMBER FOR SHARES. 

EVERYONE STARTS THE GAME WITH 50 DOLLARS , AND THE GAME 
ENDS WHEN A PERSON HAS 100 DOLLARS , CASH ON HAND. 

GOOD LUCK ! ! ! ! 


STOCK MARKET TABLE 


— 

STOCKS — 


♦♦PLAYER 1 ♦ 

♦ ♦PL 

AYER 2 * 

♦♦PLAYER 3^ 

NM 

STOCK NAME 

$/SHARE 

SHR 

WORTH 

SHR 

WORTH 

SHR WORTH 

1 

DIAMONDS INC. 

1 

0 

0 

0 

0 


2 

MINI-COMP 

4 

0 

0 

0 

0 


3 

MUTUAL MOTORS 

3 

0 

0 

0 

0 


4 

MEANCHILD ELEC 

♦ 6 

0 

0 

0 

0 


5 

GRANDPA BELL 

5 

0 

0 

0 

0 


6 

BROKE FINANCE 

5 

0 

0 

0 

0 



TOTALS 

CASH ON HAND 

TOTAL ASSETS TO DATE 


0 0 
50 
50 


0 0 
50 
50 


AVERAGE COST PER SHARE $4 UP 4 DOLLARS PER SHARE. 


IT IS PLAYER 1 'S TURN. 

YOU ROLLED A 2 AND AN 4 

ENTER OPTION , COMPANY * SHARES?1,2,4 

IT IS PLAYER 2 'S TURN. 

YOU ROLLED A 6 AND AN 6 

ENTER OPTION* COMPANY * SHARES?! * 6 * 6 



STOCK MARKET TABLE 






— 

STOCKS 

♦♦PLAYER 1 ♦ 

♦♦PLAYER 2^ 

♦♦PLAYER 3^ 

NM 

STOCK NAME $/SHARE 

SHR 

WORTH 

SHR 

WORTH 

SHR WORTH 

1 

DIAMONDS INC. 1 

0 

0 

0 

0 


9 

MINI-COMP 4 

4 

16 

0 

0 


3 

MUTUAL MOTORS 3 

0 

0 

0 

0 


4 

MEANCHILD ELEC. 6 

0 

0 

0 

0 


5 

GRANDPA BELL 5 

0 

0 

0 

0 


6 

BROKE FINANCE 5 

0 

0 

6 

30 



TOTALS 

4 

16 

6 

30 



CASH ON HAND 

33 

.2 


18.5 



TOTAL ASSETS TO DATE 

49 

.2 


48.5 


AVERAGE COST PER SHARE $ 

4 NO 

CHANGE. 





DO YOU WISH TO CONTINUE? (1 FOR YES)?1 



IT IS PLAYER 1 'S TURN, 

YOU ROLLED A 6 AND AN 4 

ENTER OPTION , COMPANY, SHARES?2 ,6,-4 

THE STOCK FOR COMPANY 6 NOW COSTS $ 1 

IT IS PLAYER 2 'S TURN, 

YOU ROLLED A 1 AND AN 4 

ENTER OPTION, COMPANY, SHARES?!, 1,4 



STOCK MARKET TABLE 






— 

STOCKS 

♦♦PLAYER 1 ♦ 

♦♦PLAYER 2* 

♦♦PLAYER 3^ 

NM 

STOCK NAME $/SHARE 

SHR 

WORTH 

SHR 

WORTH 

SHR WORTH 

1 

DIAMONDS INC. 1 

0 

0 

4 

4 


2 

MINI-COMP 4 

4 

16 

0 

0 


3 

MUTUAL MOTORS 3 

0 

0 

0 

0 


4 

MEANCHILD ELEC. 6 

0 

0 

0 

0 


5 

GRANDPA BELL 5 

0 

0 

0 

0 


6 

BROKE FINANCE 1 

0 

0 

6 

6 



TOTALS 

4 

16 

10 

10 



CASH ON HAND 


33.19 


14.3 



TOTAL ASSETS TO DATE 


49,19 


24.3 


AVERAGE COST PER SHARE $ 

3.33 

DOWN .67 

DOLLARS PER 

SHARE. 

DO 

YOU WISH TO CONTINUE? 

( 1 

FOR YES) ?1 





IT IS PLAYER 1 'S TURN, 

YOU ROLLED A 4 AND AN 2 

ENTER OPTION, COMPANY, SHARES? 1,2, 4 

IT IS PLAYER 2 'S TURN, 

YOU ROLLED A 5 AND AN 6 

ENTER OPTION, COMPANY, SHARES?2,6,5 

THE STOCK FOR COMPANY 6 NOW COSTS $ 6 


STOCK MARKET TABLE 


— 

STOCKS 

— 

♦♦PLAYER !♦ 

♦♦PLAYER 2^ 

♦♦PLAYER 3^ 

NM 

STOCK NAME */SHARE 

SHR 

WORTH 

SHR 

WORTH 

SHR WORTH 

1 

DIAMONDS INC. 

1 

0 

0 

4 

4 


2 

MINI-COMP 

4 

8 

32 

0 

0 


3 

MUTUAL MOTORS 

3 

0 

0 

0 

0 


4 

MEANCHILD ELEC, 

6 

0 

0 

0 

0 


5 

GRANDPA BELL 

5 

0 

0 

0 

0 


6 

BROKE FINANCE 

6 

0 

0 

6 

36 



TOTALS 


8 

32 

10 

40 



CASH ON HAND 



16.39 


14.3 



TOTAL ASSETS TO 

DATE 


48.39 


54.3 
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AVERAGE COST PER SHARE * 4.16 UP .83 DOLLARS PER SHARE. 

DO YOU WISH TO CONTINUE? (1 FOR YES)?0 
READY. 


aQQaaaaQQQ 


Program listing 


100 DIM CC6>,SC3, 6), MC3), AC3) 

110 T=50: REM DOLLARS TO START GAME WITH 
120 Tl=100s REM DOLLARS FOR END OF GAME 
130 CLS 

140 PRINT TAB (30)" STOCK MARKET GAME" SPRINT 
1G0 FOR 1 = 1 TO 3sM( I )=T sNEXT I 
170 PRINT "HOW MANY PLAYERS" 5 s INPUT Q: PRINT 
180 IF Q<1 THEN 170 ELSE IF G> 3 THEN 170 
130 FOR 1=1 TO 6:CCI)=INTC6*RNDCI>)+1 sNEXT I 

200 PRINT "DO YOU WISH FOR THE INSTRUCTIONS? CY=YES> INPUT A$ 
210 IF A$="Y" THEN GOSUB 1080 
220 GOSUB 600 
230 PRINT 

240 PRINTsPRINTsFOR 1=1 TO Q 
250 PRINT "IT IS PLAYER" I" ’S TURN. " ! PRINT 
260 C= I NT ( 6* RND < 0 ) )+l :S=INTC6*RNDC0) )+l 
270 PRINT "YOU ROLLED A"C" AND AN"S 

280 PRINT "ENTER OPTION, COMPANY, SHARES" INPUT 01, Cl, SI 
230 IF C1=C THEN 300 ELSE IF COABS (Si) THEN 280 
300 IF S=ABS (SI ) THEN 320 ELSE IF SO Cl THEN 280 
310 IF ABS ( S 1 ) > 6 THEN 280 

320 IF 010 1 THEN 430 ELSE IF SI <0 THEN 380 
330 C2=(S1+C(C1) ) + (. 05+<Si+€CCl) > ) 

340 IF M ( I ) > C2 THEN 360 

350 PRINT " PERSON" I“DOESN’ T HAVE ENOUGH MONEY. "s GOTO 280 
360 SCI, C1)=S(I, C15+S1 :MCI)=M(I)-C2 
370 GOTO 430 

380 IF SC I, C1)+S1> =0 THEN 400 

330 PRINT "YOU DON’T HAVE THAT MANY SHARES — TRY AGAIN. "sGOTO 
400 C2=CS1*CCC1 >)-C. 05+CS1+CCC1) )) 

410 MCI) =M C I > +ABS ( C2 ) 

420 SCI,C1)=SCI,C1)+S1 
430 IF CCd*)+Sl>0 THEN 460 

440 PRINT "YOU CAN’T DO THAT, STOCK DROPS BELOW ZERO." 

450 PR I NT SGOTO 280 
460 CCC1)=CCC1)+S1 

470 PRINT "THE STOCK FOR COMPANY'Tl "NOW COSTS $"C(C1) 

480 FOR F=1 TO 750 s NEXT F 
430 PRINTS IF M C I ) > =T 1 THEN 540 
500 NEXT 1 5 PRINTS PRINT 
510 GOSUB 600 

520 PRINT "DO YOU WISH TO CONTINUE? C Y=YES) "j s INPUT A$ 

530 IF A$="Y" THEN 230 ELSE 1350 
540 PRINT s GOSUB 600s PRINT: PRINT 

550 PRINT "*************** GAME IS OVER ****Mc**********" 

560 PRINT "PERSON" 1-1 "HAS WON WITH"MC 1-1 ) "DOLLARS" 

570 PRINTsPRINT 

580 PRINT "*** CONGRATULATIONS TO PERSON" 1-1 
530 GOTO 1350 




PRINT TABC5) "STOCK MARKET TABLE": PRINT 
PRINT " STOCKS '■ ; 

PRINT TAB I 27) 11 PLAYER i PLAYER 2 PLAYER 3" 

PRINT "NM STOCK NAME "TAB I 17) "$/SHARE" ; 

PRINT TABc.26)"SHR WORTH SHR WORTH SHR WORTH" 

A9=0: FOR 1=1 TO S:PRINT ISTABC4); 

IF 1=1 THEN PRINT "DIAMONDS INC. ";:GOTO 730 
IF - 1=2 THEN PRINT "MINI-COMP" ; :GQTQ 730 
IF 1=3 THEN PRINT "MUTUAL MOTORS" 5 : GOTO 730 
IF 1=4 THEN PRINT "MEANCHILD ELEC. " 5 : GOTO 730 
IF 1=5 THEN PRINT "GRANDPA BELL" ; : GOTO 730 
PRINT "BROKE FINANCE" 5 :GOTO 730 
A3=A3+CCI) : PRINT TAB ( 13) ;CII) ; 

FOR K=1 TO Q 

PRINT TABIC IK— 1) *14) +27) *S(K, I) ; 

PRINT TAB! I IK- 1 ) *14) +33) ;SCK, D+CCD ; 

NEXT K: PRINT : NEXT I 

PR I NT: PR I NT "HIT -ENTER- TO CONTINUE. INPUT F:CLS 

PRINT TAB 14) "TOTALS" 5 

FOR 1 = 1 TO 3: A 1 1 ) =0 : NEXT I 

FOR 1=1 TO 0 : B9=0 : C3=0 

FOR X=1 TO S 

B9=B9+S 1 1 7 X) 

C3=C9+ (SCI, X)*CCX) ) 

A 1 1 ) =A 1 1 ) + 1 S 1 1 » X ) *C I X ) ) 

NEXT X 


S70 PRINT TAB! I CI-l)*14)+27) ?B9; 

SS0 PRINT TAB 1 1 1 1 — 1 ) *14) +31 ) * C9; 

330 NEXT I: PRINT 

300 PRINT TAB (4)5 "CASH ON HAND"; 

910 FOR 1 = 1 TO Q : M C I ) = I NT C M C I ) * 1 00 ) / 1 00 

320 PRINT TAB 1 1 1 1 - 1 ) * 1 4 ) +29 ) ;MC1) ; ; A 1 1 ) =A C I ) +M 1 1 ) 

930 NEXT I: PRINT 

340 PRINT TABC4) ; "TOTAL ASSETS TO DATE"; 

350 FOR 1 = 1 TO Q: PRINT TAB I C 1 1 - 1 ) * 1 4 ) +29 ) ; A C I ) ; 

9S0 NEXT I : PRINT: PRINT 
370 PRINT "AVERAGE COST PER SHARE 
330 A3=A3/G: A9=INT CA3*100) / 100 
990 PRINT A9; 

1000 IF A3-A3O0 THEN 1020 

1010 PRINT " NO CHANGE. " :GOTO 10S0 

1020 IF A3-ASC0 THEN 1050 

1030 PRINT " UP" ;A9-AS; "DOLLARS PER SHARE." 

1040 GOTO 1080 

1050 PRINT " DOWN" ;A3-A9; "DOLLARS PER SHARE." 

1060 A3=A9 

1070 PRINT: PRINT:RETURN 
1030 CLS 

1090 PRINT "THIS IS A GAME OF STOCK MARKET. THE OBJECT OF THIS" 

1100 PRINT "GAME IS TO MAKE MORE MONEY THAN YOUR OPPONENT." 

1110 PRINT "THIS IS DONE BY BUYING AND SELLING STOCKS FOR A PROFIT." 

1120 PRINT 

1130 PRINT "THE WAY YOU BUY AND SELL STOCK IS AS FOLLOWS. YOU ROLL TWO" 
1140 PRINT "DICE; SAY DICE A AND DICE B. YOU CAN EITHER BUY 7 A’ SHARES" 
1150 PRINT "OF STOCK IN COMPANY 7 B 7 OR BUY 7 B 7 SHARES OF STOCK IN COMPANY" 
1180 PRINT “ 7 A 7 . THE SAME GOES FOR SELLING EXCEPT, OBVIOUSLY, YOU CAN’T" 
1170 PRINT "SELL MORE SHARES OF STOCK THAN YOU HAVE. THERE IS ALSO A 5Y-" 
1130 PRINT "BROKERAGE FEE ON ALL MONEY TRANSACTIONS." 

1200 PRINT: PRINT "HIT -ENTER- TO CONTINUE. INPUT Z:CLS 

1210 PRINT "TO MAKE THE PRICE OF A STOCK GO UP OR DOWN REQUIRES THAT" 

1220 PRINT "YOU USE YOUR TURN, NOT TO BUY OR SELL, BUT TO RAISE OR LOW^R" 
1230 PRINT "THE PRICE OF ANY STOCK. THIS IS DONE BY RAISING 7 A 7 STOCK" 

1240 PRINT "BY 7 B 7 DOLLARS OR BY DROPPING 7 A 7 STOCK BY 7 B 7 DOLLARS IT" 
1250 PRINT "ALSO WORKS IN REVERSE; THAT IS YOU RAISE OR LOWER 7 B 7 STOCK" 
1260 PRINT "BY 7 A 7 DOLLARS.: PRINT 
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W C4 t-4 W IS) Is) 10 


70 PRINT 11 OPTION 1 IS USED TO BUY OR SELL STOCKS WHILE" 

80 PRINT "OPTION 2 IS USED TO RAISE OR LOWER THE PRICE OF A STOCK. " 

90 PRINT "TO SELL OR LOWER A STOCK, TYPE IN A NEGATIVE NUMBER FOR" 

00 PRINT "SHARES. " : PRINT 

10 PRINT "EVERYONE STARTS THE GAME W I TH " T " DOLLARS , AND THE GAME" 

20 PRINT "ENDS WHEN A PERSON HAS"T1 "DOLLARS, CASH ON HAND." 

40 PRINT "GOOD LUCK ! ! ! ! " : PRINT : PRINT "HIT -ENTER- TO BEGIN. . . " ; : I NPUT Z:Cl 

S: RETURN 
1350 END 
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Description 

Enter any alphanumeric phrase into the computer, and it will make a 
readable paper tape of that phrase through your teletype punch. 


Variable list 

C = Position in data table for information 
Cl = First of 5 lines punched to created character 
C2 = Second of 5 lines punched to create character 
C3 = Third of 5 lines punched to create character 
C4 = Fourth of 5 lines punched to create character 
C5 = Fifth of 5 lines punched to create character 
K = Character count when entering phrase 
L( ) = Phrase entered to be punched 
S = Option number 
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Sample run 

THIS PROGRAM WILL MAKE READABLE PAPER TAPE 


DO YOU WANT THE INSTRUCTIONS? (1 F r OR YES)?1 


OPTION EXPLANATION 

1 PRINTS A BLANK LEADER ♦ 

2 ACCEPTS UP TO 60 ALPHANUMERIC CHARACTERS 
TO BE PUNCHED INTO READABLE TAPE. 

3 EXITS FROM THE PROGRAM. 

PUT ON TAPE PUNCH AFTER HEARING BELLS. THERE IS 
A 5 SECOND DELAY AFTER THE BELLS. WHEN THE PROGRAM 
IS DONE PUNCHING t THERE IS ANOTHER DELAY ABOUT 10 
SECONDS LONG. BE SURE TO SHUT OFF PUNCH 
DURING THAT INTERVAL . 

IF YOU HAVE A PHRASE LONGER THAN 60 CHARACTERS 
SIMPLY USE OPTION 2 AS MANY TIMES AS NECESSARY r 
BUT BE SURE TO SHUT OFF THE PUNCH WHEN IT'S DONE 
PUNCHING OUT EACH 60 CHARACTERS. 

ANY CHARACTER ON THE KEYBOARD MAY BE USED. SPACES 
TYPE OUT AS 5 BLANKS. 


QPTI0N?2 


INPUT THE PHRASE* NO MORE THAN 60 CHARACTERS. 
HIT RUBOUT TO DELETE THE LAST CHARACTER AND 
HIT RETURN WHEN DONE WITH THE PHRASE. 

COMPUTERS ARE FUN ! ! 


0PTI0N73 





• • 


!••• 


• ••• 


• • 




READY. 
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Program listing 


TAPLAB 


100 DIM L(60> 

110 CLS 

120 PRINT "THIS PROGRAM WILL MAKE READABLE PAPER TAPE. " 
i30 PRINT 

140 PRINT "DO YOU WANT THE INSTRUCTIONS? CY=YES> INPUT L* 
150 CLS 

160 IF L$=" Y" THEN 1S0 ELSE 420 
1S0 PRINT "OPTION", "EXPLANATION" 

190 PRINT 

200 PRINT " 1", "PRINTS A BLANK LEADER." 

210 PRINT " 2", "ACCEPTS UP TO 60 ALPHANUMERIC CHARACTERS" 

220 PRINT " " , " TO BE PUNCHED INTO READABLE TAPE." 

230 PRINT " 3", "EXITS FROM THE PROGRAM." 

240 PRINT 

250 PRINT "PUT ON TAPE PUNCH AFTER HEARING THE BUZZER. THERE" 
260 PRINT "IS A 5 SECOND DELAY AFTER THAT. WHEN THE PROGRAM" 
270 PRINT "IS DONE PUNCHING, THERE IS ANOTHER DELAY ABOUT 10" 
2S0 PRINT "SECONDS LONG. BE SURE TO SHUT OFF PUNCH" 

290 PRINT "DURING THIS INTERVAL. " 

300 PRINT: PRINT "HIT -ENTER- TO CONTINUE. INPUT Z : CLS 
310 PRINT "IF YOU HAVE A PHRASE LONGER THAN 60 CHARACTERS" 

320 PRINT "SIMPLY USE OPTION 2 AS MANY TIMES AS NECESSARY," 
330 PRINT "BUT BE SURE TO SHUT OFF THE PUNCH WHEN IT’S DONE" 
340 PRINT "PUNCHING THE 60 CHARACTERS. " 

350 PRINT 

360 PRINT "ANY CHARACTER ON THE KEYBOARD MAY BE USED. SPACES" 
370 PRINT "TYPE OUT AS 5 BLANKS." 

3S0 PRINT 

390 PRINT "HIT -ENTER- TO BEGIN. INPUT Z 
420 K=0 

430 CLS: PRINT "OPTION" INPUT S 
440 PRINT: ON S GOTO 490,520,740 

450 PRINT "INCORRECT OPTION, TRY AGAIN. " : GOTO 430 
490 GOSUB 750 

500 FOR 1=1 TO 40 : PRINT CHR$C0) :NEXT I 
510 GOTO 660 

520 PRINT "INPUT THE PHRASE, NO MORE THAN 60 CHARACTERS." 

530 PRINT "HIT -ENTER- WHEN DONE WITH PHRASE. ": PRINT 
540 INPUT K* 

550 GOSUB 750 

560 Z=LEN CK$) : IF Z>60 THEN 430 
570 FOR N=1TDZ : X=ASC CMID$ CK$» N, 1)) 

5S0 C=X-32+l: RESTORE 
590 IF C=1 THEN 610 

600 FOR 1=1 TO C- 1 : READ Cl , C2, C3, C4, C5 : NEXT I 
610 READ C1,C2,C3,C4,C5 
620 PRINT CHR*<;Ci:> 

625 PRINT CHR$CC2> 

630 PRINT CHR4CC3) 

635 PRINT CHR$CC4> 

640 PRINT CHRSKCS) 

650 NEXT N 

660 FOR F=1 TO 1500:NEXT F 
670 GOTO 430 
740 GOTO 1090 

750 FOR 1 = 1 TO 100:QUT255, 6:DUT255, 0: NEXT I : REM BUZZER 

760 FDR 1=1 TO 2500 : NEXT I: RETURN 

770 DATA 0,0,0,0,0,0,0,95,0,0 

780 DATA 0, 96, 0, 96, 0, 20, 62, 20, 62, 20 

790 DATA 58,73,127,73,46,96,99,68,83,99 

800 DATA 22,41,21,2,5,0,0,96,0,0 
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810 DATA 0,0,28,34,65,85,34,28,0,0 
820 DATA 42,28,127,28,42,8,8,62,8,8 
830 DATA 0, 1 , 7, 0, 0, 0, 8, 8, 8, 0 
840 DATA 0, 0, 1, 0, 0, 3, 4, 8, 16, 96 
850 DATA 127,67,73,97,127,1,1,33,63,1 
860 DATA 103,79,73,89,121,73,73,73,73,119 
870 DATA 120,8,8,8,127,123,73,73,73,79 
880 DATA 127,73,73,73,79,64,64,71,72,96 
890 DATA 54,73,73,73,54,120,72,72,72,127 
900 DATA 0, 0, 20, 0, 0, 0, 2, 20, 0, 0, 

910 DATA 0,8,20,34,65,20,20,20,20,20 
920 DATA 65, 34, 20, 8, 0, 1 12, 64, 77, 72, 120 
930 DATA 0, 0, 0, 0, 0 

940 DATA 15,56,72,56,15,127,73,73,73,54 
950 DATA 127,65,65,65,65,127,65,65,65,62 
960 DATA 127, 73, 73, 73, 65, 127, 72, 72, 72, 64 
970 DATA 62,65,69,69,103,127,8,8,8,127 
980 DATA 65,65,127,65,65,71,65,127,64,64 
990 DATA 127,8,20,34,65,127,1,1,1,1 
1000 DATA 127, 48, 24, 48, 127, 127, 48, 8, 6, 127 
1010 DATA 127,65,65,65, 127,127,72,72,72,120 
1020 DATA 127,65,69,67,127,127,88,84,82,113 
1030 DATA 121,73,73,73,79,64,64,127,64,64 
1040 DATA 127, 1, 1, 1, 127, 112, 12, 1, 12, 112 
1050 DATA 127,6,2,6,127,99,54,28,54,99 
1060 DATA 120, 9, 10, 12, 120, 75, 77, 73, 89, 105 
1070 DATA 127,65,65,65,0,96, 16,8,4,3 
1080 DATA 0, 65, 65, 65, 127, 16, 32, 127, 32, 16 
1090 END 


139 




Description 

Tennis anyone? This program simulates a tennis singles (2 players) 
match. You play against the computer. 

A singles tennis match is the best 2 out of 3 sets. A set is a series of 
games wherein 1 player has won at least 6 games and in every case has 
won 2 more than his opponent. The player must win by a 2-game mar- 
gin. Normally a set is won by the scores: 6-0, 6-1 , 6-2, 6-3, or 6-4. 
However, a set may be won by scores: 7-5, 8-6, 9-7, etc. 

A game of tennis is won when the first player wins 4 exchanges of 
shots (hitting the ball in a position on the court away from the oppo- 
nent). Again the player must win by a margin of 2 exchanges. 

The scoring of tennis is as follows: 

The first point (exchange) won is referred to as “15.” 

The second point won is “30.” 

The third point won is “40.” 

The fourth point and final point won is simply “Game,” 

“Deuce” is when the players are tied at 40 each. 

“Advantage” refers to the first point scored after deuce by either 
player. It is either your or your opponent’s advantage. 
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“Love” means zero in tennis. 

The server’s score is always referred to first (i.e., 15-40). 

In the computer game there are several options open to you, such as 
your position on the court, placement of the ball on the court, and the 
speed of the ball. Your option is specified by a number given to you by 
the computer. You will always be allowed to serve first and backhand 
and forehands will be assumed. Good luck! The computer has been 
taught its game by a very famous tennis pro! 


Variable list 

A9 = Type of serve (first serve) 

B = Way in which computer’s shot went bad 
B9 = Type of serve (second serve) 

C = Probability of serving a let serve (first serve) 

C9 = Type of shot attempted by player 
D = Probability of making the serve (first serve) 

G = Probability of serving a let serve (second serve) 

H = Probability of making the serve (second serve) 

I = Probability of serve not being returned (first shot) 

N = Probability of serve not being returned (second shot) 
Q = Positioning of player for return of shot 
R = Area of court shot aimed for 
S = Probability of return being good 
U = Way in which player’s shot went bad 
W = Probability of computer’s return being good 
Y = Points scored by player 
Y1 = Games won by player 
Z = Points scored by computer 
Z1 = Games won by computer 


Sample run 


TENNIS GAME! 

THIS PROGRAM WILL SIMULATE A TENNIS SINGLES MATCH. 

THERE ARE SEVERAL OPTIONS AVAILABLE TO YOU AS TO POSITION t 
PLACEMENT t AND SPEED (TYPE) OF" SHOT. THE KEY THAT YOU 
USE is: 

POSITIONS (PLACEMENTS TOO): 

1 LEFT BACKCOURT 

2 RIGHT BACKCOURT 

3 LEFT FORECOURT 
A RIGHT FORECOURT 
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SPEED (TYPE) OF SHOTS 


1 FAST SLAM 

2 SLOW LOB 

ALWAYS SPECIFY YOUR OPTION BY NUMBER* YOU WILL BE ALLOWED 
TO SERVE FIRST IN ALL GAMES. 

BACKHANDS AND FOREHANDS WILL BE ASSUMED. 


GOOD LUCK! 


SERVE! TYPE71 
SERVE IS BAD 
SERVE AGAIN! TYPE?1 

SERVE IS BAD.. .DOUBLE FAULT! 

SCORE-POINTS YOU... ME 
0 1 


SERVE! TYPE?1 

SERVE HAS BEEN RETURNED... 

WHAT IS YOUR POSITION?^ 

WHAT TYPE OF SHOT ARE YOU MAKING72 

WHAT PART OF THE COURT ARE YOU AIMING FOR?l 

YOUR RETURN IS GOOD! 

COMPUTER'S RETURN IS GOOD! 

WHAT IS YOUR P0SITI0NT2 

WHAT TYPE OF SHOT ARE YOU MAKING71 

WHAT PART OF THE COURT ARE YOU AIMING FOR? 3 

YOUR RETURN IS GOOD! 

COMPUTER'S RETURN IS GOOD! 

WHAT IS YOUR POSITION?l 

WHAT TYPE OF SHOT ARE YOU MAKINGT2 

WHAT PART OF THE COURT ARE YOU AIMING F0R?2 

YOUR RETURN IS GOOD! 

NICE SHOT-THE COMPUTER COULDN'T REACH IT 

SCORE-POINTS YOU... ME 
1 1 


SERVE! TYPE?1 

SERVE HAS BEEN RETURNED... 

WHAT IS YOUR POSITION?! 

WHAT TYPE OF SHOT ARE YOU MAKING? 1 

WHAT PART OF THE COURT ARE YOU AIMING F0R?4 

YOUR RETURN IS GOOD! 

NICE SHOT-THE COMPUTER COULDN'T REACH IT 

SCORE-POINTS YOU... ME 
2 1 
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SERVE ! TYF'ETl 
SERVE IS BAD 
SERVE ABA IN' TYPE? 1 

LET SERVE... TAKE 1 
SERVE AGAIN! TYPE?! 

SERVE IS GOOD... ACE! 

SCORE-POINTS YOU.. .ME 
3 1 


SERVE! TYPE?1 
SERVE IS BAD 
SERVE AGAIN! TYPE?1 

SERVE IS BAD... DOUBLE FAULT! 

SCORE-POINTS YOU... ME 
3 2 


SERVE! TYPE?1 
SERVE IS BAD 
SERVE AGAIN! TYPE?1 

SERVE IS BAD.. .DOUBLE FAULT! 

SCORE-POINTS YOU... ME 
3 3 


SERVE! TYPE?1 

SERVE IS GOOD... CAN'T BE RETURNED! 

SCORE-POINTS YOU.. .ME 
4 3 


SCORE-GAMES YOU... ME 

1 0 


SERVE! TYPE? 




Program listing 


100 CLS: PRINT "TENNIS GAME ! "SPRINT 

110 PRINT " THIS PROG ROM WILL SIMULATE A TENNIS SINGLES MATCH." 

120 PRINT "THERE ARE SEVERAL OPTIONS AVAILABLE TO YOU AS TO POSITION 
130 PRINT "PLACEMENT, AND SPEED (TYPE) OF SHOT. THE KEY THAT YOU" 

140 PRINT "USE IS: ": PRINT: PRINT "POSITIONS (PLACEMENTS TOO):" 

150 PRINT 

1S0 PRINT " 1 " ?TAB(5) , "LEFT BACKCOURT" 

170 PRINT "2" ?TAB(5) ; "RIGHT BACKCDURT" 

130 PRINT "3" ;TAB<5) ? "LEFT FORECOURT" 

190 PRINT "4";TAB(5) ’"RIGHT FORECOURT" 

135 PRINT : PRINT "HIT -ENTER- TD CONTINUE. INPUT F:CLS 
200 PRINT: PRINT "SPEED (TYPE) OF SHOTS :": PRINT 

210 PRINT " 1"; TAB 05) ! "FAST SLAM" : PRINT "2" ;TAB(5) ? "SLOW LOB":PRINT 

220 PRINT "ALWAYS SPECIFY YOUR OPTION BY NUMBER. YOU WILL BE ALLOWED 

230 PRINT "TO SERVE FIRST IN ALL GAMES. PRINT 

240 PRINT "BACKHANDS AND FOREHANDS WILLL BE ASSUMED. PRI NT 

250 PRINT "GOOD LUCK!" 



2S0 Y=0; Z=0 
270 PRINT 
2S0 PRINT 

230 PRINT " SERVE! TYPE"; 

300 INPUT A3 
310 A=100*RNDC0) 

320 IF A9=2 THEN 410 
330 C=E 
340 D=51 

350 IF A <C THEN 390 
3E0 IF A <D THEN 590 
370 PRINT TAB C 1 0 ); "SERVE IS BAD" 

3S0 GOTO 440 

390 PRINT TABC 10) ; "LET SERVE. . TAKE TWO." 

400 GOTO 290 
410 C=4 
420 D=EE 
430 GOTO 350 

440 PRINT TABC 10) ; "SERVE AGAIN! TYPE"; 

450 INPUT B9 
4S0 E=100*RNDC0) 

470 IF B9=2 THEN 5S0 
4S0 G=5 
490 H=41 

500 IF E <G THEN 540 
510 IF E <H THEN 590 

520 PRINT TABC 10) ; "SERVE IS BAD. .. DOUBLE FAULT'" 

530 GOTO 1160 

540 PRINT TABC 10); "LET SERVE. .. TAKE 1" 

550 GOTO 440 
560 G=3 
570 H=76 
5S0 GOTO 500 
590 I=100*RNDC0) 

600 IF I>6 THEN 630 

610 PRINT TABC 10) ; "SERVE IS GOOD. ..ACE'" 

620 GOTO 1140 
630 K=100*RNDC0) 

640 IF A9=2 THEN 700 
650 IF B9=2 THEN 700 
660 N=61 

670 IF K <N THEN 720 

6S0 PRINT TABC 10) ; "SERVE IS GOOD. .. CAN’ T BE RETURNED'" 
690 GOTO 1140 
700 N=76 
710 GOTO 670 

720 PRINT TABC 10) ; "SERVE HAS BEEN RETURNED..." 

730 PRINT 

740 0= I NT C 4=+= RND C 0 ) ) + 1 

750 PRINT "WHAT IS YOUR POSITION"; 

760 INPUT-Q 

770 IF 0+Q=5 THEN 1110 

760 PRINT "WHAT TYPE OF SHOT ARE YOU MAKING"; 

790 INPUT C9 

600 PRINT "WHAT PART OF THE COURT ARE YOU AIMING FOR"; 
610 INPUT R: PRINT 
620 S=100*RNDC0) 

830 IF C9=2 THEN 660 
640 IF SCSI THEN 940 
650 GOTO 670 
660 IF SC91 THEN 940 
670 U=4*RNDC0) 

860 PRINT TABC30) ; "YOUR RETURN IS BAD..." 

690 IF U <2 THEN 920 

900 PRINT TABC33) ; "HIT OUT-OF-BOUNDS" 

910 GOTO 1160 

920 PRINT TABC 33) ; "HIT INTO NET" 

930 GOTO 1160 

940 PRINT TABC30) ; "YOUR RETURN IS GOOD!" 


144 



950 PRINT : A 1 = 1 NT (4*RND(0) ) 

960 IF R+A1=5 THEN 1130 
970 W=100*RNDC0) 

9S0 IF C9=2 THEN 990 
390 IF W <84 THEN 1090 
1000 GOTO 1020 
1010 IF W <84 THEN 1090 
1020 B=4*RNDC0> 

1030 PRINT TAB (30) ; "COMPUTER’S RETURN IS BAD..." 

1040 IF B<2 THEN 1070 

1050 PRINT TRBC33) ; "HIT OUT-OF-BOUNDS" 

1060 GOTO 1140 

1070 PRINT TAB (33) 5 "HIT INTO NET" 

10S0 GOTO 1140 

1090 PRINT TAB (30) 5 "COMPUTER’S RETURN IS GOOD'" 

1100 GOTO 730 

1110 PRINT " NICE TRY YOU WERE UNABLE TO REACH THAT SHOT-COURT #"0 
1120 GOTO 1160 

1130 PRINT " NICE SHOT-THE COMPUTER COULDN’T REACH IT" 

1140 Y=Y+1 
1150 GOTO 1170 
1160 Z=Z+1 
1170 PRINT 

1180 PRINT TABC5) ; "SCORE-POINTS YOU. . . ME" 

1190 PRINT TAB(21 ) ;Y; " ";Z 

1200 IF Y=4 THEN 1230 
1210 IF Z=4 THEN 1250 
1220 GOTO 270 
1230 Y1=Y1+1 
1240 GOTO 1260 
1250 Z1=Z1+1 

1260 FOR F=1 TO 60:PRINT "-";:NEXT F: PRINT 
1270 PRINT TAB( 15) 5 "SCORE GAMES YOU. ..ME" 

1280 PRINT TABC32) ;Y1 ; " ";Z1 

1290 IF Yl=6 THEN 1320 
1300 IF Z 1=6 THEN 1350 
1310 GOTO 260 
1320 PRINT 

1330 PRINT "**** CONGRATULATIONS. .. YOU WON ****•■ 

1340 GOTO 1370 
1350 PRINT 

1360 PRINT "**♦* flS PREDICTED, THE COMPUTER IS AGAIN TRIUMPHANT ****•' 
1370 PRINT 

1380 PRINT "LET’S PLAY AGAIN SOME TIME. RIGHT NOW I NEED SOME" 

1390 PRINT "COOLING FROM MY FANS 1 ' BYE 1 
1400 END 
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Description 

An old favorite is created in this program. The game of tic-tac-toe is 
printed out and you play against the computer. Remember, the com- 
puter has a memory and won’t lose twice the same way! 


Variable list 

C = Number of moves made in game 
Cl = Number of moves made by player 
C( ) = Positioning of board (1 for computer, 2 for player) 

E = Error flag to determine if test made is valid (0 means no error) 
G = Game number 
M = Moves of players 

W( ) = Winning moves of player for each game 
XI = Number of games won by player 
X2 = Number of ties 

Y1 = Number of games won by computer 


Sample run 

THIS IS A GAME OF TIC-TAC-TOE. 


I'M 'O', YOUR 'X'. 
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POSITIONS ARE 


12 3 
4 5 6 
7 8 9 


I'LL GO FIRST. 
MY MOVE IS} 5 


- 0 - 


WHAT IS YOUR MOVE?l 
MY MOVE IS: 3 

X - 0 

- 0 - 


WHAT IS YOUR M0VET7 
MY MOVE IS: 4 

X - 0 

0 0 - 
X - - 


WHAT IS YOUR M0VE?6 
MY MOVE IS: 8 

X ~ 0 

0 0 X 

X 0 -■ 


WHAT IS YOUR M0VE72 
MY MOVE IS: 9 

X X 0 
0 0 X 

X 0 0 

IT'S A TIE ! ! 

ANOTHER GAME? (1=YES)?1 


POSITIONS are: 

1 2 3 

4 5 6 

7 8 9 


I'LL GO FIRST. 
MY MOVE IS: 3 

- - 0 
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WHAT IS YOUR M0VET9 
MY MOVE IS? 5 

- - 0 
- 0 - 

- - X 

WHAT IS YOUR M0VET7 
MY MOVE IS: 8 

- - 0 
- 0 - 
X 0 X 

WHAT IS YOUR M0VE?2 
MY MOVE IS: 4 

- X 0 
0 0 - 
X 0 X 

WHAT IS YOUR M0VE?6 
MY MOVE IS: 1 

0X0 
0 0 X 

X 0 X 

IT'S A TIE! ! 

ANOTHER GAME? (1=YES)?0 


FINAL SCORE: 

YOU 0 ME 0 TIE ( S ) 2 


READY. 


aaaQQQQQQa 


Program listing 


TICTAC 


100 DIM CO), WC72, 5) 

110 CLS: PRINT "THIS IS A GAME OF TIC-TAC-TQE. PRINT 
120 PRINT: PRINT "I’M ’O’, YOU’RE ’ X’ PRINT 
130 PRINT: PRINT "THE POSTIONS ARE :":PRINT 
140 PRINT "1 2 3" 

150 PRINT "4 5 S" 

1S0 PRINT "7 S 9" 

165 PRINT: PRINT "HIT -ENTER- TO BEGIN. INPUT Z:CLS 

170 G=G+1 

180 IF GO 72 THEN 190 ELSE G=1 
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190 FOR 1 = 1 TO 9: CC I ) =0 : NEXT I:C=0:C1=0 
200 RESTORE: IF RND(0X.5 THEN 220 
210 PRINT "I’LL GO FIRST. " :PRINT:GOTO 300 
220 PRINT "YOU GO FI RST. PRINT 
225 FOR Z=1 TO 1000:NEXT Z 

230 PRINT: PRINT "WHAT IS YOUR MOVE";: INPUT M:CLS 

240 GOSUB E50 

250 IF E=0 THEN 270 

2E0 PRINT "ILLEGAL MOVE. GOTO 230 

270 C CM) =2 *.GOSUB 720:0=0+1 

220 01=01+1 : WIG, C1)=M 

290 IF E=1 THEN 540 ELSE IF 0=9 THEN 540 
300 M=1 

310 IF CCM) <>0 THEN 330 ELSE CCM)=l:GOSUB 720 
320 IF E= 1 THEN 500 ELSE CCM)=0 
330 M=M+1 : IF MO 10 THEN 310 
340 M=1 

350 IF C(M)O0 THEN 370 ELSE C(M)=2:G0SUB 720 

320 IF E=1 THEN 490 ELSE CCM)=0 

370 M=M+1 : IF MO 10 THEN 350 

320 IF G=1 THEN 450 ELSE 1=1 

390 E=0: FOR M=1 TO Cl 

400 IF WCI,M)=WCG,M) THEN 410 ELSE E=1 

410 NEXT M: IF E=1 THEN 440 

420 M=WC 1 7 M+l ) : IF M=0 THEN 440 

430 IF CCM)=0 THEN 490 

440 1 = 1 + 1 : IF IOG THEN 390 

450 IF RNDC0X. 4 THEN 420 

460 READ M: IF C(M)<>0 THEN 450 ELSE 490 

470 DATA 5, 7, 3, 9, 1, 6. 2, 4, 2 

420 M=INT C9+RNDC0) ) + l : IF CCM)=0 THEN 490 ELSE 420 


490 CCM)=1 

500 PRINT "MY MOVE IS:";M 

510 PRINT :GOSUB 690:GOSUB 720 

520 IF E=1 THEN 550 

530 C=C+1 : IF 0=9 THEN 550 ELSE 230 

540 PRINT:GOSUB 690 

550 PRINT : IF Q=0 THEN 520 ELSE IF QO 1 THEN 570 

560 PRINT "I WON! ! ! " :Y1=Y1+1 :G0T0 590 

570 PRINT "YOU WON !!!": X1=X 1+1 : GOTO 600 

520 PRINT "IT’S A TIE ! ! ! " : X2=X2+1 

590 FOR 1=1 TO 5: W(Gj I I =0 : NEXT I:G*G-1 

600 PRINT: PRINT "ANOTHER GAME? ( Y=YES) INPUT A$ 

610 CLS : IF A$=" Y" THEN 130 

620 PRINT : PRINT "FINAL SCORE :": PRINT 

630 PRINT "YOU" XI" ME" Y1 " TIECS)"X2 

640 PRINT : PRINT : GOTO 910 

650 E=0: IF M < 1 THEN 670 ELSE IF M>9 THEN 670 

660 IF CCM) =0 THEN 620 

670 E=1 

620 RETURN 

690 FOR I'=l TO 9 

700 PRINT " " " : I F CCDO0 THEN 720 
710 PRINT ; : GOTO 740 

720 IF 0(1)0 1 THEN 730 ELSE PRINT "0";:G0T0 740 
730 PRINT "X"; 

740 IF 1/30 INT (1/3) THEN 760 
750 PR I NT: GOTO 770 
760 PRINT " 

770 NEXT I : RETURN 

7S0 E=0:Q=CC5) : IF Q=0 THEN 240 

790 IF CCl)OQ THEN 210 ELSE IF 0(3) OQ THEN 210 


200 E=l: RETURN 
210 IF 0(3) OQ 
220 IF 0(2)0 Q 
230 IF 0(4) OQ 


THEN 220 ELSE IF 
THEN 230 ELSE IF 
THEN 240 ELSE IF 


C(7)=Q THEN 200 
C(G)=Q THEN 200 
C(6)=Q THEN 200 



840 Q=C <: 1 ) : I F Q=0 THEN 370 

350 IF CC2) <>Q THEN 360 ELSE IF C(3)=Q THEN 300 

360 IF CU)OB THEN 370 ELSE IF CC7)=Q THEN 300 

370 Q=C C9) : IF Q=0 THEN 900 

330 IF CC3)OQ THEN 390 ELSE IF C<B)=Q THEN 300 

390 IF C C 7 > < > Q THEN 900 ELSE IF CCS)=Q THEN 300 

300 D=0: RETURN 
910 END 
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by J. Victor Nahigian 
and 

William S. Hodges 


Here’s an exciting and challenging collection of computer 
games with something for everyone. Nahigian and Hodges 
have provided complete programs for a wide variety of highly 
entertaining games, from the traditional to the new and unusual, 
including: 



Basket 

Escape 

Poker 

Biorhythm 

Fish 

Psycho 

Blackjack 

Golf 

Roll On 

Boggle 

Gunner 

Skeedoodle 

Bullet 

Horse 

Star Trek 

Compat 

Jackpot 

Stocks 

Date 

Kismet 

Taplab 

Dogs 

Notone 

Tennis 

Easter 

Poem 

Tic-tac-toe 




Each game is written in 8K TRS-800 BASIC. Complete 
programming notes, probability tables, and amusing 
illustrations add to the fun and instructional value of 
COMPUTER GAMES. 


Winthrop Publishers, Inc. 
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